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ICC C Cross Compiler 

FOR OS-9/68xxx BASED SYSTEMS 





8051. 
6801, 
6301, 
68HC11 



54160 



Emulator 



ANSIC 
Full implementation of the proposed ANSI standard 
for C compilers. Includes the Kemighan & Ritchie 
standard plus improvements for micro-controller 
development. 

Memory-based compiler 

ICC is a fast one-pass compiler based on main 
memory storage. This has three major advantages: 

• NO temporaiy files 

• NO time-consuming assembly pass 

• NO separate pre processor stage 

This combines into one single word: SPEED 

PROM-able C 

ICC makes it possible to put C programs into 
PROM, still using the full C language and all data 
types, including type definrtions, long integers and 
statically initialized variables. 

Built-in Type-Checking 
ICC has a UNIX LINT-like type-checking option 
built-in into the compiler. This means that Pascal- 
like warnings are generated, e.g. when functions 
are mismatched or undeclared. 



For more information contact your local distributor 



Various Options 

• 8051 — single-chip 

— 64 K CODE 4 DATA 

— 64 K CODE + 64 K DATA 

• 6301 and 6801 

• Z80 and 64180 



Frank Hogg Laboratory 

The Regency Tower 

Suite 215 

770 James Street 

Syracuse, NY 13203 

Phone:(315)474-7856 

Telex: 646740 



ElsoUAG 

ZeJweg 12 

CH-5405 Baden-Oatlwil 

Switzerland 

Phone (056)83 3377 

Telex: 828275 



Full Package Development System 

The ICC compiler package includes: 

• C run-time library 

• //-Series Relocatable Macro Assembler 

• XLINK Universal Linker 

• XLIB Universal Librarian 

• Floating-point support 

• 1 50 page manual in three-ring binder 

All this together give the micro-controller program- 
mer a powerful Development System Software 
Environment. 

©IAR 

SYSTEMS 

0S-9/68xxx version distribution by: 

Micromaster Scandinavia AB 

Box 1309, S-751 43 UPPSALA, SWEDEN 

Tel int.: +461813 85 95 Telex- 76129 



THE GMX 020BUG DEBUGGER/ DIAGNOSTIC PACKAGE 



This extensive firmware package provides a broad range of 
program dwfopment tools and a complete suite of diagnostic 
programs tor exercising GMX Mfcro-20 hardware. 

Trie debugger includes commands for displaying and modifying 
registers and memory. If the optional 68881 Floating-Point 
Coprocessor is Installed, its registers are also accessible. Memojy 
can be displayed in hexadecimal and ASCII format, as floating point 
values {single, double, extended or packed lormat) t or as 
disassembled instructions (including FPC instructions). Memay 
modify can be done with hexadecimal values, with ASCII strings, 
with Itoattng- point values, or with a one -line assembler which 
supports the full 68020 instruction set (although not the FPC 
instructions) Block move, till, and search are also available. 

Several dillerent modes (or tracing or executing user programs 
are provided, along wtth a powerful breakpoint facility Programs 
and data may be downloaded Horn a host system or uploaded back 
to the host, and If* GMX Micro-20 console may be used as a host 
system terminal A serial printer may be hooked up. and used to 
make hardcopy listings of debugger sessions as desired. 

The diagnostic firmware includes 90 lest commands and 16 
utilities Complete test suites are provided for each functional block 
of the GMX Micro-20's hardware, including, for example. 9 



DEBUGGING COMMANDS 



different tests for memory. 9 tests for serial I/O ports. 2 teste for 
the 68881 FPC. and 9 tests for the optional memory management 
unit For the peripheral control rntei faces (floppy disk. SASI/SCSi 
hard disk or tape) . test commands support a broad range of 
peripheral operations (read. wnte. format, etc) so that the user 
may test both me interface and an attached device Tests are 
provided lor add-on I/O boards, including the ARCnet interface, I/O 
Channel Interface, and parallel and serial expansion boards. 

The uttiity commands allow the user to execute groups of test 
commands conveniently, repeat commands or command groups, 
enable or disable detailed taull reporting, count delected errors, or 
execute all the non-peripheral tests as a group. A switch option 
allows this last function to be invoked automatically at power-on or 
reset. Other utilities allow the user to check the slate of the various 
jumpers and switches on the GMX MJcro-20 directly. 

in addition to the Diagnostic command package. 020Bug 
contains a confidence test which is always run after power-on or 
reset, This test does a quick checkout of the processor and the 
basic system elements that are needed tor 020Bug operation. It 
detect is tound. an error code is signalled by on-and-off Nlrfa of 
LEO 
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EXCITING SOFTWARE FROM THE LEADER... 




OS-9 ELECTRONIC MAIL 

Klasb your message on Electronic Mail Mail is a 
screen or line-oriented program that runs un your 
OS 9/680X0 systems or over OS 9/NKT You can use 
distributed mailing lists or consecutive mailing list to 
get your message delivered And received mail can be 
sent directly to your printer for immediate printout, 
spooled on a multiuser system or saved tu a Hie Mail 
features on line help and complete, easy to understand 
documentation. 
Electronic Mail $150 00 



OS-9/ST 

N KW for your Atari SV\ Now you can have the power of 
OS 9 on yuur Atari 520 or 1040 ST A true 
multi tasking environment for professional real time 
results OS 9/ST is available in two configurations: 
I'erhonaJ arid Professional Choose either version for 
true mulli user support And all at a price that puts 
UN IX to shame 

Personal OS 9/ST combines the power of OS 9 with 
an interactive, structured Basic $150.00 



PRINT SPOOLER 

Spool it and Print it! Someone beat you to the printer? 
Don't blow your top while yo\i cool your heels get the 
OS 9/68000 Print Spooler and relax The lull featured 
Print Spooler automatically routes and monitors the 
status of your devices and the output files to be spooled 
Now you can have a complete print spooling manage- 
ment system at an affordable price. 
OS 9 Print Spooler $150.00 

FORTRAN 

Crunch It! with Our New KOKTKAN 77 Compiler Now 
you have a powerful new tool to take full advantage of 
the 68000 family of microprocessors With Microware's 
KORTKAN 77 Compiler you can generate cod« that uses 
system wide modules instead of linking redundant 
copies of the standard library to each program Kesult 
less memory, less disk space, faster loading and 
external updating! 
FORTRAN 77 Compiler $750.00 



[Professional OS 9/ST has a powerful Assembler, 
1 .inker and User Debugger and the tools to turn 
your Atari ST into a full C Language 
workstation $600.00 

OS-9/68020 C COMPILER 

N KW "speed demon" C Compiler! Now you can get your 
bonds on a highly optimized C language power 
tool the OS 9/68020 C Compiler. When coupled with 
the MC68SSI math coprocessor, this compiler will let 
you'll blast through complex math functions in the 
blink of an eye All compiler/assembler/linker options 
an- controlled hy ;in intelligent compiler executive that 
spares you from memorizing compiler options and 
module calling sequences And the compiler includes 
library functions fur memory management and system 
events, and much, much morel The new OS 9/68020 C 
Compiler is included with the Professional OS 9/68020 
System Software Package 
NewC language Compiler $750 00 



To order these exciting NKW products or fur more information 



CALL TODAY.' 



Microware Systems Corporation 

1900 N W 1 14th Street* l)es Moines. Iowa 50322 

Phone 515 224 1929* Telex 91(1 520 2535 



West Coast Office 

4401 Great American Parkway * Suite 220 

Santa Clara, California 95054 



Microware Japan. Ltd. 

41 !9lloncho4 Chome, Kunabashi City *Chiba 273 r 

Japan * Phone 0473 (28) 4493 * Telex 781 299 31 22 
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Microware is on the move We have openings for Technical and Marketing Professionals. 
Send your resume (in confidence) today and find out more about these exciting opportunities. 

0S-9 vtdBASfC09 a/a tfBdematks at Mtcntw* and Motorola UNIX is a trademark of 8ofl La&yttonH '"& 
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The MUSTANG-020 68020 SBC provides a powerful, 
compact, 32 bit computer system featuring (he "state of the arf 
Motorola 68020 "super" micro- processor. It comes standard 
with 2 megabyte of high-speed SIP dynamic RAM. serial and 
parallel ports, floppy disk controller, a S ASI hard disk interface 
for intelligent hard disk controllers and a baiiery backed -up 
dm e -of- day clock. Provisions are made for the super powerful 
Motorola MC6888 1 floating point math co pToreasor. for 
heavy math and number crunching eradications. An optional 
network interface uses one serial (four (4) siandartt expandable 
to 20) as a 125/bit per second network channel. Supports as 
many as 32 nodes. 

The MUSTANG-G20 is ideally suited to a wide variety of 
applications. It provides a coil effect ive alternative to the other 
MC68020 systems now available. It is an excellent introductory 
tool to the world of hi-power. hi- spaed new generation "super 
micros**. In practical applications it has numerous applications, 
ranging from scientific to education. It is already being used by 
government agencies, labs, universities, business and practi- 
cally eva y other critical applications center, worldwide, where 
true multi-user, multi-tasking needs exist The MUSTANG- 
020 is UNIX C level V compatible. Where low cost and power 
is a must, the MUSTANG -020 is the answer, as many have 
discovered. Proving that pi ice is not the standard for quality I 

As a software development station, a general purpose 
scientific or small to medium business computer* or a super 
efficient real-time controller in process control the MUS- 
TANG-020 is the cost effective choice. With the optional 
MC6888 1 floating point math co-processor installed, it has the 
capability of systems costing many times over it's total acqui- 
sition cost 

With the DATA-COMP "total package", consisting of a 

Data-Comp Division 

n /?'/££F*!\ A [*'i'atlc of Quality ServiceV 
V VC330t^" Systems World-Wide 
Computer Publishing, Inc. 5900 Cassandra Smith Road 
Telephone 615 842-4601 ■ Telex 510 600-6630 Hasw, Tn 37343 



DATA-COMP Proudly Presents the First 

Under $4300 "SUPER MICRO" See other 

advertising (backcover) for economy 

system (68008) - under $2400 complete! 



heavy duly metal cabinet, switching power supply with rf/line 
by-passing. 5 inch DS/DD 90 track floppy, Xebec haid disk 
controller. 25 megabyte Winchester hard disk, four serial RS- 
232 ports and a UNIX C level V compatible multi-tasking, 
multi-user operating system, ihe price is under $4300, w/123 
megahertz system clock (limited time offer)* Most all popular 
high level Languages are available at very reasonable cost The 
system is expandable to 32serial pons, at a cost of less than $65 
per port, in multiples of 8 port expansion options. 



The SBC fully populated, quality tested . with 4 serial poits 
pre- wired and boaid mounted is available for less lliat $2500. 
Quantity discounts are available for OEM and special applica- 
tions, in quantity. Al) thai is required to bung to complete 
"system" ciandards is a cabinet, power supply, disks and oper- 
ating system. All these are available as separate items from 
DATA-COMP. 




A variable 125-25 M hi systems, colt for special prices 

A special version of the Motorola 020 B UG is installed on 
each board. 020-BUG is a ROM based debugger package with 
facilities for downloading and executing Msa programs from a 
host system. It includes commands for display and modifica- 
tion of memory , breakpoint capabilities, a powerful assembler/ 
disassemble and numerous system diagnostics. Various 020- 
BUG system routines, sue has I/O hand) ers are available for user 
programs. 

Noimal system speed is 3-4,5 MIPS, with burst up to 10 
MIPS, at 16.6 megahertz Intelligent I/O available for some 
operating systems. 

Hands-on '* actual experience sessions", before you buy, 
are available from DATA-COMP. Call or write for additional 
information or pricing. 
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Mustang Specification! 

125 Mfc* (opiivu) )6 6 MKz available) MC6S020 TuU 32-bii wide path 

32- bit wide data And adjfeiaa buses. non>multip)caed 

an dbp inanition ache 

afcjaca code CKgyo hk wife iD 68 XXX family powon 

enhancaad inswuflkan ad - malh o^pnana interface 

6SSSI mWk bi*tpaed floating pom cb-pvnm (optional) 

dzroet aiotfMaa of full 69020 bwXRKXkan m 

full support IEEE P7H draft 10.0 

UWBfmdaiLa) and other acientific nuih function* 

2 Megabytoof SIP RAM <512 * 32 bit organizabcm) 

upuj 256K bytes of EPROM (64 x 32 Ht«) 

4 ArynchrrvwfcA aerial I/O pons nandud 
ofbonal u> 20 tend porta 
aundiAJ RS-232 interface 
ocfional MtwoA interface 

Teed S bit penllcl pan (]/2 MC6&230) 
Cum una typo pmaui 
expansion ctxwecu* fo* I/O drvuaai 
16 oil datapath 
256 byte eddame a pace 
2 interrupt input* 
clock and control signals 
Motorola uOQunnol Modulan 
time of day cJock/caJondar w/buxavy backvp 
cantJkr for 2, 5 1*4" fkpp? disk dovca 
■ingle or fl»A|e side, aiagk a- doubk. denaily 
35 to SO oack aciaxubk (4S-96 T?I) 
SASI tacrfaoe 

progpenm abaa pcariodic intorup* generator 
inicnupt nto from micn>aeconda to wjoonda 
hia^Oy accurate time baae (5 PPM) 

5 bit aonao awitch. rcadahte by the CPU 
IUt&wuc aingle-step capability 

These hi-«paad 6802D ayavwrn are pmm tly «mdung al NASA. Atoobc Eno)jy Cann^siaa. 
Q^woxDml Agenciea as well as Urivenrickm, Biumoaa, Laba. and other Qitkal Appbcaooni 
Cenaox. worldwide, wfcer* apn*d, math ousiung and mute-uaer. nnaUi'taBkiog UNIX C level 
V asopfttAbiluy and km cost ia a must. 




Don't be mislead! 

ONLY Data-Comp 

delivers the Super 

MVSTANG-020 



I 



Only the "PRO" Version 
of OS-9 Supported! 




This is HEAVY DUTY 
Country! 



I F O r*irna*dt»rT»n»w*el»e«a*i00l 
cnaOw^onVOufeMMXXIsaC. I 

I taut* b»«0far«j jT^TV and I 

Cai toe hwf% IfUian^Vio 



PrkeLbt: 

Musung-020 SBC 
Cabinet w^ witching PS 
5^80 track Goppy DS/DD 
Rs*?py Cable 

0^9 6SK Pha'eaauaial Venion 
CConjpikr($500Vinie) 
Windbano Cable 
Wbchoner Otive 25 Mbyte 
Han) Oisk Cofvmltea 
Shipping USA UPS 

UniFLEX Leaa 

MC6a9Sl tfp malh paoceiav Add 

16.67 Mhx MC6I020 
16.67 Mh*MC6M*l 
20MhzMO6f02DSyi 
Nou all 6SSI1 dupm week with 20 Mha Sya 
TeaaJ 

Save $1000.00 
Complete 



52490.00 
$299.95 
$269.95 
$39,95 
« 50.00 

$3995 
$195 00 
$395 00 
$2000 

$10000 
$275.00 
$375.00 
$37$.00 
$750,00 

$529910 



Data-Comp Division 




Computtw pul 

I615W2-4601 



A Oajcauie of QitmUty Scrvlcg*^ 

System* Wortrt Wiitf 

Itohlng, Inc. SMO Cm**n*u Smith Ro^3 
Tatax 510 600-6(1X3 Hutaon. Tn 37343 



25 Mbyte HD System 

$4299.80 
85Mbyte HD System 

$5748.80 

Sole: Only ProfewioniJ OS 9 Now Available (68020 Version) 

Includes ($500) C Compiler - 68020 St 68881 Supported - 

For UPGRADES Wriic or Call for Professional OS-9 Upgrade Kit 



68 Micro Journal 



February '88 



/ PAT - JUST x 



PAT fm m 

With *C' Source | 

$229.00 { Wy/^mmi 





I Division of 


~ s.e. 
Media- 

5900 CtssiKki Smith Rd. 
HixK», Tn 37341 

TclcrhflM 615 &42^6809 
1 eld 510600-6630 


fcHOdMEOq hKOOK MOW- 6K0 10 68020 J , 



PAT FROM S. E. MEDIA -- A FULL FEATURED SCREEN ORIENTED TEXT EDITOR 
with all the best of PIE. For those who swore by and loved PIE, this is for YOU! All PIE 
features & much more! Too many features to list. And if you don t like ours, change or add 
your own. C source included. Easily configured to your CRT terminal, with special configuration 
section. No sweat! 

68008 - 68000 - 68010 - 68020 OS-9 68K $229.00 





Special $249.00 

JUST 

JUST from S. E. MEDIA - - Text formatter written by Ron Anderson; for dot matrix 
printers, provides many unique features. Output formatted to the display. User con- 
figurable for adapting to other printers. Comes set-up for Epson MX80 with Graflex. Up 
to 10 imbedded printer control commands. Compensates for double width printing. 
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The C Programmers 

Reference Source. 

Always Right On Target! 

C User Notes 



A Tutorial Series 



By: Dr. E. M 'Bud' Pfcss 
1454 Una La« N.W. 
Gfi)m> GA 30207 
401 483-1717/4570 

Computer Systems Consultants 



INTRODUCTION 

This chapter continues the discussion and presenta- 
tion of a public-domain portable math library written 
in C by Fred Fish. 

MATH LIBRARY 

The cexp.c function returns the complex natural 
exponential of its argument. 



/* 

* cexp complex double precision 
expohential 

*/ 

♦include <stdio.h> 
♦include "pmluser.h" 
♦include "pml.h" 



COMPLEX cexp (z) 

COMPLEX z; 

( 

COMPLEX result; 

double expx; 

extern double 



exp() , sin() , cos () ; 



ENTER ("cexp"); 

DEBUG4 ("cexpin", "arg %le %le", 
z . real, z .imag) ; 

expx - exp (z.real); 

result.real - expx * cos (z.imag); 

result. imag - expx * sin (z.imag) ; 

DEBUG4 ("cexpout", "result %le %le", 
result. real, result .imag) ; 

LEAVE ( ) ; 

return (result) ; 
} 



The clog.c function returns the complex natural 
logarithm of its argument. 



/* 

* clog complex double precision natural 
logarithm 

*/ 

♦include <stdio.h> 
♦include "pmluser.h" 
♦include "pml.h" 

COMPLEX clog (z) 

COMPLEX z; 

( 

double temp; 

extern double cabs (), atan2(), log 
0; 

ENTER ("clog"); 

DEBUG4 ("clogin", "arg %le %le", 
z . real, z. imag) ; 

temp «• log (cabs (z)); 

z.imag - atan2 (z.real, z.imag) ; 

z.real - temp; 

DEBUG4 ("clogout", "result %le %le", 
z. real, z .imag) ; 

LEAVE ( > ; 

return (z) ; 
) 



The cmult.c function returns the complex prod- 
uct of its arguments. 



* cmult double precision complex 

multiplication 
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♦include <stdio.h> 
♦include "pmluser.h" 
♦include "pml.h" 

COMPLEX cmult (zl, z2) 
COMPLEX zl; 
COMPLEX z2; 

{ 

COMPLEX result; 

ENTER ( w cmult"); 
DEBUG4 ("cmult in", "argl %le %le", 
zl.real, zl.imag); 

DEBUG4 ("cmultin", *arg2 %le %le", 
z2.real, z2.imag); 

result. real = (zl.real * z2.real) - 
(zl.imag * z2.imag); 

result . imag = (zl.real * z2.imag) + 
(z2.real * zl.imag); 

DEBUG4 Pcmultout", * result %le %le", 
result. real, result . imag) ; 
LEAVE (); 
return (result) ; 
) 



The COS.C function returns the cosine of its argu- 
ment. 



cos double precision cosine 



♦include <stdio.h> 
♦include "pmluser.h" 
♦include "pml.h" 

static double cos_pcoef fs [] « 
{ 

0.12 90539465903737 4438e7, 
-0.37 4567039157232047 10e6, 
0.13432300986539084285e5, 
-0.11231450823340933092e3 
I; 

static double cos_qcoef fs [] = 

{ 

0.12905394659037373590e7, 

0.234 67773107245835052e5, 

0.20969518196726306286e3, 

1.0 

}; 

static char funcname[] - "cos"; 

double cos (x) 
double x; 



auto double y; 
auto double yt2; 
auto double rtnval; 
extern double mod (); 
extern double sin (); 
extern double sqrt () 
extern double poly () 
struct exception xcpt 



DBUG_ENTER (funcname) ; 

DBUG_3 Pcosin", w arg %le", x) ; 

if (x < -PI It x > PI) 



{ 



x = mod (x, TWOPI) ; 

if (x > PI) 

( 

x - x - TWOPI; 
} 

else 
if <x < -PI) 

( 

x - x + TWOPI; 
I 



) 



if (x > HALFPI) 
( 

xcpt. ret val - -(cos (x - PI) ) ; 

\ 

else 

if (x < -HALFPI) 

{ 

xcpt.retval - -(cos (x + PI)); 
) 

else 
if (x > FOURTHPI) 

{ 

xcpt.retval « sin (HALFPI - x) ; 

} 
else 

if (x < -FOURTHPI) 
{ 

xcpt.retval - sin (HALFPI + x) ; 

} 
else 

if (x < X6_UNDERFLOWS && X > - 
X6_UNDERFLOWS) 
( 

xcpt.retval - sqrt (1.0 - (x * x) ) ; 

J 
else 

( 

y - x / FOURTHPI; 
yt2 - y * y; 
xcpt.retval ** poly (3, cos — pcoeffs, 
yt2) / 

poly (3, cos_qcoeffs, yt2); 
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DBUG_3 ("cosout", "result %le", 


x = exp (x) ; 


xcpt .retval) ; 


xcpt. retval - O.S * (x + 1.0 / x); 


DBUG_RETURN ( xcpt . ret va 1 ) ; 


) 


1 


DBUG_3 ("coshout", "result %le", 




xcpt .retval) ; 




DBUG RETURN (xcpt . retval) ; 


The cosh.c function returns the hyperbolic co- 


) 


sine of its argument. 






The crcp.c function returns the complex recipro- 


/* 


cal of its argument. 


* cosh double precision hyperbolic 




cosine 




*/ 


/* 




* crcp complex double precision 


♦include <stdio.h> 


reciprocal 


♦include "pmluser . h" 


*/ 


♦include "pml.h" 






♦include <stdio.h> 


static char f uncname (] = "cosh" ; 


♦include "pmluser.h" 




♦include "pml.h" 


double cosh (x) 




double x; 


COMPLEX crcp (2) 


( 


COMPLEX 2; 


auto struct exception xcpt; 


{ 


extern double exp ( ) ; 


double denom; 


DBUG_ENTER (f uncname) ; 


ENTER ("crcp"); 


DBUG_3 ("coshin", "arg %le", x) ; 


DEBUG4 ("crcpin", "arg %le %le", 


if (x > LOGE_MAXDOUBLE) 


z.real, z . imag) ; 


{ 


denom = (z.real * z.real) + (z.imag * 


xcpt. type - OVERFLOW; 


z . imag) ; 


xcpt. name ■* f uncname ; 


if (! denom) 


xcpt.argl ~ x; 


{ 


if ( Imatherr (ixcpt) ) 


pmlerr (CRCP_OF_ZERO) ; 


f 


z.real = MAX_POS_DBLF; 


fprintf (stderr, "%s: OVERFLOW 


z.imag = 0.0; 


error\n", f uncname) ; 


} 


errno - ERANGE; 


else 


xcpt. retval - MAXDOUBLE; 


{ 


} 


z.real /= denom; 


i 


z.imag /= -denom; 


else 


1 


if (x < LOGE_MINDOUBLE) 


DEBUG4 ("crcpout", "result %le %le", 


{ 


z . real, z . imag) ; 


xcpt. type = UNDERFLOW; 


LEAVE ( ) ; 


xcpt. name m f uncname ; 


return (2) ; 


xcpt.argl « x; 


) 


if ( !matherr (ixcpt) ) 




fprintf (stderr, "%s: UNDER- 


The csin.c function returns the complex sine of 


FLOW error\n" f f uncname) ; 


its argument. 


errno ~ ERANGE; 




xcpt. retval ~ MINDOUBLE; 
[ 


* csin complex double precision sine 


else 

< 


*/ 
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♦include <stdio.h> 


return (z) ; 


♦include H pmluser.h" 


1 


♦include "pml.h" 




COMPLEX csin (z) 


The csqrt. c function returns the complex square 


COMPLEX z; 
i 


root of its argument. 


1 

COMPLEX results- 




extern double sin(), cos(), sinhO, 


/* 


cosh() ; 


* csqrt complex double precision square 




root 


ENTER resin") ; 


*/ 


DEBUG4 ( w csinin" f "arg %le %le", 




z . real, z . imag) ; 


♦include <stdio.h> 


result, real - sin (z.real) * cosh 


♦include "pmluser.h" 


(z.imag) ; 


♦include "pml.h" 


result, imag - cos (z.real) * sinh 




(z.imag) ; 


COMPLEX csqrt (z) 


DEBUG4 ("csinout", "result %le %le", 


COMPLEX z; 


result . real, result . imag) ; 


{ 


LEAVE ( ) ; 


double root, q; 


return (result) ; 


extern double dabsO, sqrtO, cabs 


1 


0; 




ENTER ("csqrt"); 


The csinh.c function returns the complex hyper- 


DEBUG4 ("csqrtin", "arg %le %le", 


bolic sine of its argument. 


z . real, z .imag) ; 




if (z.real || z.imag) 
< 

root - sqrt (0.5 * (dabs (z.real) 


/* 


* csinh complex double precision 


+ cabs (z) ) ) ; 


hyperbolic sine 


q - z.imag / (2.0 * root); 


*/ 


if (z.real >- 0.0) 


♦include <stdio.h> 


i 

z.real - root; 


♦include "pmluser.h" 


z.imag - q; 


♦include "pml.h" 


) 




else 


COMPLEX csinh (z) 


if (z.imag < 0.0) 


COMPLEX z; 


{ 


( 


z.real - -q; 


COMPLEX cexpmz; 


z.imag - -root; 


extern COMPLEX cexp (); 


) 




else 


ENTER ("csinh"); 


I 


DEBUG4 rcsinhin", "arg %le %le", 


z.real - q; 


z .real, z.imag) ; 


z . imag - root ; 


cexpmz. real - -z.real; 


i 


cexpmz . imag - - z . imag ; 


\ 


cexpmz - cexp (cexpmz) ; 


DEBUG4 ("csqrtout", "result %le %le". 


z - cexp (z) ; 


z.real, z . imag) ; 


z.real — cexpmz. real; 


LEAVE ( > ; 


z.imag — cexpmz. imag; 


return (z) ; 


z.real *- 0.5; 


J 


z - imag *- 0.5; 




DEBUG4 rcsinhout", "result %le %le", 




z. real, z .imag) ; 




LEAVE < ) ; 
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The csubt.c function returns the result of sub- 


z.real - MAX_POS_DBLF; 


tracting its second argument from its first argu- 


z . imag - . ; 


ment. 


1 




else 

t 


/* 


i 

z - csin (z) ; 


* csubt double precision complex 


z ■ cdiv (z, ccosz); 


subtraction 


} 


*/ 


DEBUG4 ("ctanout", "result %le %le", 




z.real, z.imag); 


♦include <stdio.h> 


LEAVE ( ) ; 


♦ include "pmluser.h" 


return <z) ; 


♦include "pml.h" 


J 


COMPLEX csubt <zl, z2) 




COMPLEX zl; 


The ctanh.c function returns the complex hyper- 


COMPLEX z2; 
j 


bolic tangent of its argument. 


I 

ENTER ("csubt"); 




DEBUG4 ("csubtin", "arg %le %le", 


/* 


zl.real, zl.imag); 


* ctanh complex double precision 


DEBUG4 {"csubtin", "arg2 %le %le", 


hyperbolic tangent 


z2 . real , z2 . imag) ; 


*/ 


zl.real -- z2.real; 




zl.imag — z2.imag; 


♦include <stdio.h> 


DEBUG4 {"csubtout", "result %le %le". 


♦include "pmluser.h" 


zl.real, zl.imag); 


♦include "pml.h" 


LEAVE ( ) ; 




return <zl) ; 


COMPLEX ctanh <z) 


) 


COMPLEX z; 




I 

COMPLEX result; 


The ctan.cfunction returns the complex tangent 


extern COMPLEX cexp <) , cdiv <) ; 


of its argument. 






ENTER ("ctanh") ; 




DEBUG4 ("ctanhin", "arg %le %le", 


/* 


z . real, z .imag) ; 


* ctan complex double precision tangent 


result. real - -2.0 * z.real; 


*/ 


result. imag - -2.0 * z.imag; 




result - cexp (result) ; 


♦include <stdio.h> 


z.real - 1.0 - result, real; 


♦include "pmluser.h" 


z.imag - -result . imag; 


♦include "pml.h" 


result. real +- 1.0; 




result - cdiv (z f result) ; 


COMPLEX ctan (z) 


DEBUG4 ("ctanhout", "result %le %le", 


COMPLEX z; 


result . real, result . imag) ; 


{ 


LEAVE ( ) ; 


COMPLEX CCOSz; 


return (result) ; 


extern COMPLEX ccos () , csin () , cdiv 
0; 


) 


ENTER <"ctan"); 


The dabs.c function returns the absolute value of 


DEBUG4 {"ctanin", "arg %le %le". 


its argument. 


z . real, z . imag) ; 




ccosz - ccos (z) ; 




if ( ( Iccosz. real) && (! ccosz . imag) ) 


/* 


( 


* dabs double precision absolute value 




*/ 
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♦include <stdio.h> 
♦include "pmluser . h" 
♦include "pml.h" 

static char f uncname ( ] m "dabs"; 

double dabs <x) 

double x; 

< 

DBUG_ENTER < f uncname ) ; 

DBUG_3 pdabsin", ~arg %le", x) ; 

if (x < 0.0) 

< 

x - -x; 

) 

DBUG_3 rdabsout", "result %le", x) 

DBUG RETURN (x); 



The dint.c function returns the integer portion 
of its argument. 



* dint double precision integer portion 



/* (NOTE HIDDEN 



♦include <stdio.h> 
♦ include "pmluser .h" 
♦include *pml.h" 

♦define W1_FBITS 24 

BIT NORMALIZATION) */ 

♦define W2_FBITS 32 /* Number of 

fractional bits in word 2 */ 

♦define WORD_MASK OxFFFFFFFF /* Mask for 

each long word of double */ 

static union 
{ 

double dval; 

long lval(2]; 
| share; 

double dint (x) 

double x; 

( 

int exponent, xexp(), fbitdown; 

register long *lpntr; 

lpntr - fishare.lval 10] ; 

share. dval • x; 

if ((exponent - xexp(x)) <» 0) 

{ 

share. dval - 0.0; 

I 
else 



if (exponent <• W1_FBITS) 
i 

♦lpntr ++ &- (WORD_MASK « (W1_FBITS 

- exponent)) ; 

* lpntr ++ - 0; 
1 

else 

if (exponent o (fbitdown - W1_FBITS + 
W2_FBITS) ) 
( 

lpntr++; 
*lpntr++ &- (WORD_MASK « (fbitdown 

- exponent ) ) ; 

} 
else 



{ 



\ 



pmlerr (DINT_2BIG) ; 



return (share .dval) ; 



The ezp.c function returns the natural exponen- 
tial of its argument* 



/* 



exp double precision exponential 



♦include <stdio.h> 
♦include ^pmluser.h" 
♦include v pml.h w 

♦define C 20.8137711965230361973 /* Poly- 
nomial approx coeff . */ 

♦define D 1.0 /* Polynomial 

approx coeff. */ 

♦define E 7.2135034108448192083 /* Poly- 
nomial approx coeff. */ 

♦define F 0.057761135831801928 /* Poly- 
nomial approx coeff. */ 

static double f pof 2tbl [ ] - 
( 

1.00000000000000000000, /* 2 ** 0/16 */ 

1.04427378242741384020, /* 2 ** 1/16 */ 

1.09050773266525765930, /* 2 ** 2/16 */ 

1.13878863475669165390, /* 2 ** 3/16 */ 

1.18920711500272106640, /* 2 ** 4/16 */ 

1.24185781207348404890, /* 2 ** 5/16 */ 

1.29683955465100966610, /*2**6/l6 */ 



t2 
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*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

I; 



1.35425554693689272850, /* 2 ** 7/16 */ 
1.41421356237309504880, /* 2 ** 8/16 */ 
1.47682614593949931110, /* 2 ** 9/16 */ 
1.54221082540794082350, /* 2 ** 10/16 
1.61049033194925430820, /* 2 ** 11/16 
1.68179283050742908600, /* 2 ** 12/16 
1.75625216037329948340, /* 2 ** 13/16 
1,83400808640934246360, /* 2 ** 14/16 
1.91520656139714729380 /* 2 ** 15/16 



static char funcname[] - *exp"; 

double exp (x) 

double x; 

( 

register int y; 

register int index; 

auto double w; 

auto double v; 

auto double a; 

auto double b; 

auto double t; 

auto double temp; 

auto double wpof 2; 

auto double zpof2; 

auto double rtnval; 

extern double dabs (); 

extern double ldexp () ; 

extern double modf (); 

auto struct exception xcpt; 

DBUG_ENTER ( f uncname ) ; 

DBUG_3 ("expin", M arg %le", x) ; 

if (x > LOGE_MAXDOUBLE) 

\ 

xcpt. type - OVERFLOW; 

xcpt. name ~ f uncname; 

xcpt.argl *- x; 

if Umatherr (fixcpt)) 

{ 

fprintf (stderr, "%s: OVERFLOW 
error\n", f uncname) ; 

errno - ERANGE; 
xcpt.retval - MAXDOUBLE; 
I 
) 
else 



if (x <- LOGE_MINDOUBLE) 
( 

xcpt. type - UNDERFLOW; 

xcpt. name - f uncname ; 

xcpt.argl ■- x; 

if ( tmatherr (fixcpt) ) 

( 

fprintf (stderr, "%s: OVERFLOW 
error\n", funcname) ; 

errno - ERANGE; 
xcpt.retval * 0.0; 



I 



I 



else 

{ 

t « x * LOG2E; 
(void) modf (t, fitemp) / 
y - temp; 

v - 16,0 * modf (t, fitemp) ; 
(void) modf (dabs (v) , fitemp) ; 
index - temp; 
zpof2 - (x < 0.0) ? 

(1.0 / fpof2tbl[ index]) : 
fpof2tbl[ index); 

w - modf (v, fitemp) / 16.0; 
a - C + (D * w * w) ; 
b - w * (E + (F * w * w) ) ; 
wpof 2 - (a + b) / (a - b) ; 

xcpt.retval - ldexp ( (wpof 2 * 
zpof2), y) ; 
I 

DBUG_3 ("expout", ^result %le", 
rtnval) ; 

DBUG_RETURN (xcpt . retval) ; 
) 



The frac.c function returns the fractional por* 
tion of its argument. 



/* 

* frac double precision fractional 
portion 

*/ 



♦include <stdio.h> 
♦include "pmluser.h" 
♦include "pml.h" 

double frac(x) 

double x; 

< 

double dint ( ) ; 

return (x - dint (x) ) ; 
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The math library is continued in the next chapter. 

EXAMPLE C PROGRAM 

Following is this month's example C program; it tests 
the functions in the math library which accept one real 
argument and return a real result. 



* d2d.c 
functions 
*/ 



test double to double math 



♦include <stdio.h> 
♦include "pml.h" 

♦define MAX_ABS_ERR 1 . Oe-6 /* catch only bad 
errors */ 

static int vflag; /* Flag for verbose 

option */ 

static int eflag; /* Simulate an error 

to error printout */ 

static int sflag; /* Flag to show final 

statistics */ 

static double max abs err ~ MAX ABS ERR; 



extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 



double 
double 
double 
double 
double 
double 
double 
double 
double 
double 
double 
double 
double 
double 
double 
double 
double 



dabs ( 
acos ( 
acosh 
asin ( 
asinh 
atan ( 
atanh 
cos () 
cosh ( 
exp () 
log () 
loglO 
sin () 
sinh ( 
sqrt ( 
tan () 
tanh () ; 



* Define all recognized test functions. 
Each function 

* must have an entry in this table, 
where each 

* entry contains the information 
specified in the 

* structure "test". 



struct test 

{ /* Structure of each function 

to be tested */ 

char *name; /* Name of the function 
to test */ 

double (*func) () ; /* Pointer to the 
function's entry point */ 

double max_err; /* Error accumulator 
for this function */ 
); 

static struct test tests (] ~ 

f /* Table of all recognized functions */ 

"dabs", dabs, 0.0, /* Absolute value 
*/ 

"acos", acos, 0.0, /* Arc cosine (in 
radians) */ 

"acosh", acosh, 0.0, /* Hyperbolic arc 
cosine (in radians) */ 

"asin", asin, 0.0, /* Arc sine (in 
radians) */ 

"asinh", asinh, 0.0, /* Hyperbolic arc 
sine (in radians) */ 

"atan", atan, 0,0, /* Arc tangent (in 
radians) */ 

"atanh", atanh, 0.0, /* Hyperbolic arc 
tangent (in radians) */ 

"cos", cos, 0.0, /* Cosine (argument 
in radians) */ 

"cosh", cosh, 0.0, /* Hyperbolic 
cosine (argument in radians) */ 

"exp", exp, 0.0, /* Exponential */ 

rt log", log, 0.0, /* Natural logarithm 
*/ 

"loglO", loglO, 0.0, /* Log to base 10 
*/ 

"sin", sin, 0.0, /* Sine (argument 
in radians) */ 

"sinh", sinh, 0.0, /* Hyperbolic sine 
(argument in radians) */ 

"sqrt", sqrt, 0.0, /* Garden variety 
square root */ 

"tan", tan, 0.0, /* Tangent (argument 
in radians) */ 

"tanh", tanh, 0.0, /* Hyperbolic 
tangent (argument in radians) */ 

NULL, NULL, 0.0 /* Function list 
end marker */ 
>; 



* main entry point for d2d test utility 
*/ 

main (argc, argv) 

int argc; 
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char *argv[]; 

t 


I 

els 

< 


argv[0), function); 


\ 

VOID dotests () ; 


e 


DBUG_ENTER ( w main w ); 


result - (*testp - 


DBUG_PROCESS (argv[0] ) ; 


>func) (argument) ; 


options (argc, argv) ; 




if (vflag) 


dotests (argv) ; 




< 


statistics ; 




printf r%s(%le) - 


D9UG_RETURN (0) ; 


%30.231e.\n 


9 


) 


result) ; 


function, argument, 


/* 




) 


* dotests process each test from stdin 




if (expected) 


directives 




1 


*/ 


/ expected; 


error - (result - expected) 


VOID dotests (argv) 




J 


char *argv[J; 




else 


char buffer(256]; /* Directive 




error - result; 


buffer */ 




) 


char function [64] ; /* Specified 




if (error < 0.0) 


function name */ 




< 


double argument; /* Specified 




abs err - -error; 


function argument */ 




) 


double expected; /* Specified 




else 


expected result */ 




( 


double result; /* Actual result 
*/ 

double error; /* Relative or 




abs_err ~ error; 




t 
if ( (abs_err > max_abs_err) I I 


absolute error */ 


ef lag) 




double abs_err; /* Absolute value 




( 


of error */ 




fprintf (stderr, 


struct test *testp; /* Pointer to 




"%s: error in 


function test */ 


\"%s\"\n", 


argv [0 1, function); 


struct test *lookup (); /* Returns 




fprintf (stderr, 


function test pointer */ 




"\targument\t%25.201e\n", 


register char *strp; /* Pointer to 


argument) ; 




next token in string */ 




fprintf (stderr, 


extern char *strtok (); 




"\tresult\t\t%25.201e\n", 


extern double atof ; 


result) ; 


fprintf (stderr, 


DBUG_ENTER ("dotests") ; 




"\texpected\t%25.201e\n", 


while (fgets (buffer, sizeof (buf f er) , 


expected) ; 




stdin)) 




) 


{ 




if (abs err > testp ->max_err) 


strcpy (function, Mnull}*); 




( 


argument - 0.0; 




testp ->max err = abs err; 


expected - 0.0; 




\ 


sscanf (buffer, M %s %le %le", 


) 




function, ^argument, ^ex- 


) 




pected) ; 


DBUG VOID RETURN; 


testp «• lookup (function) ; 


I 




if (testp — NULL) 
i 


/* 

* optior 




fprintf (stderr, "%s: unknown 


is process command line options 


function \"%s\".\n", 


*/ 
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options (argc, argv) 


i 


int argc; 


if (Istrcmp (testp ->name, 


char *argv[]; funcname) ) 


register int flag; 


rtnval = testp; 


extern int getopt () ; 


1 


extern char *optarg; 


1 




DBUG_RETURN ( rtnval ) ; 


DBUG_ENTER ("options"); 


\ 


eflag - sflag - vflag - FALSE; 




while ( (flag - getopt (argc, argv, / 


fa 


"#:el:sv") ) !- EOF) 


* statistics print final statistics 


f i 


.f desired 


switch (flag) 
i 


*/ 


case *#' : statistics <) 


DBUG_PUSH (optarg) ; 


1 


break ; 


struct test *tp; 


case *e' : 




eflag - TRUE; 


DBUG_ENTER ("statistics"); 


break ; 


if (sflag) 


case v l # : 


{ 


sscanf (optarg, "%le", 


for (tp « tests; tp ->name; tp++) 


&max_abs_err) ; 


( 


DBUG_3 ("args", "max_abs_err = 


printf ("%s : \tmaximum relative 


%le", max_abs_err) ; error %le\n", 


break ; 


tp ->name, tp ->max_err) ; 


case % s' : 


1 


sflag = TRUE; 


) 


break; 


DBUG VOID RETURN; 


case % v f : 


1 


vflag - TRUE; 




break; 




> i 


SOF 


s 
DBUG VOID RETURN; 




/* 
* loopup lookup test in known test 




list 




*/ 




struct test * lookup (funcname) 




char * funcname; 




struct test *testp; 




struct test *rtnval; 




DBUG_ENTER ("lookup"); 




rtnval - (struct test *) NULL; 




for (testp - tests; testp ->name && ! 




! rtnval; testp++) 
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GETTING THE DE-BUGS OUT 



Although my title is a bit of a pun, there is 
some truth to it. Any typeof problemoccurring 
in a program is called BUG. The term goes 
back to the days when computers were housed 
in rooms and sometimes buildings. The hard- 
ware consisted of tubes and relays. Program- 
ming was done by "hardwiring''. Wires were 
physically connected from location to location. 
Building blocks of the program were literally 
connected together. If any of you are familiar 
with the analog computer, you will under- 
stand the technique. When something went 
wrong, a search was made. It could be some 
type of miswiring or a blown tube. During one 
search a moth was found between two electri- 
cal contacts. The problem was termed a "bug*. 
Hence, the routine became getting out the 
bugs or debugging ones program. 

So much for old stories. Now a days debug- 
ging a program means to search for problems 
in it operation. Seldom is the cause a fried 
insect stuck between two contacts. Errors 
come in the form of misguided program execu- 
tion, syntax errors and illegal operations. 
Some errors are easier to find then others. 
Others remain extremely allusive. Some will 
show up at compile time. Others will occur 
during program execution. And there is the 
case when everything will compile correctly 
and run, but it won't be doing what was in- 
tended. 



There are numerous techniques to find the 
bugs. Some can be done without the aide of the 
computer. Some require running the pro- 
gram. Others will actively print the progress 
of the program or examine it while it runs. 

The oldest method is the "walk through". 
This involves sitting down with a listing and 
actually stepping through the program by 
hand. This method goes back the days when 
programmers would punch up their programs 
on cards. The cards were taken to a facility 
where they would be processed. Usually over- 
night the program would compiled and exe- 
cuted. The next day the cards and data would 
be picked up. If the programmer were fortu- 
nate, his data was what was expected. Most 
times, it was not. Some error was noted. Now 
the trick was to step through program looking 
for the problem. If luck were with him, he 
might find it before the day was out and resub- 
mit his cards for reprocessing. This could take 
time, but it taught patience and perseverance. 

Now there is interactive computing. The 
days are behind of having to submit batch jobs. 
However, this method does have its merits. 
Many times I have created a printout of the 
program. Then I have sat back and carefully 
walked through the program by hand. At each 
program step, I have mentally calculated what 
the computer would be doing. This may mean 
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some calculation or an I/O* It could be a branch 
to some other program location. If done care- 
fully a potential bug may be found. Ideally this 
method is used when a known problem exists 
and its approximate location is known. For a 
long program, doing a complete walk through 
would be time consuming. Boredom may occur 
before an error is found. 

Another method is to add a line in the 
program displaying what it is doing. This is 
usually a simple statement, printing the vari- 
able of interest. It could also be a statement of 
where the program is currently located. Here 
is one way to tell where the program flow is 
going. I use this method quite a bit in my C 
programming. Take the following case: 

#define DEBUG 1 

#ifDEBUG 

printfTa=%d b=%d c=%d\n",a,b,c); 

#endif 

Now when I compile this, the line becomes 
part of the program. When the program flow 
gets to this line, I see the value of a, b, and c. 
I may use many lines like this. Always using 
the #if DEBUG.. .#endif structure. When I am 
ready to compile the finished product, I change 
the first line to: 

#define DEBUG 

Now everything that appears in the "if 
DEBUG" structure is no longer part of the 
program. 

This technique can be applied to other lan- 
guages. In Pascal you might want to start with 
a declaration like: 

CONST 

debug = TRUE- 
Now to print a, b and c as before we enter: 

IF debug 

writeln('a=\a.' b=\b,' c=\c); 

Later when finished with debugging the 
program, the TRUE is changed to FALSE. 
Then all the debug statements will not print. 



The best method todebuga program is to be 
able to monitor its progress. This can include 
setting break points, stepping through the 
program, examining variables, printing the 
program's progress and levels of "call nesting". 
Such a feat may sound a little complex, espe- 
cially in a language that compiles down to 
object code. But it can be implemented and is 
in many systems. 

Some changes in the compiling methods 
would be necessary. Line numbers would have 
to be added to the code. This could be accom- 
plished by adding a variable, LINNUM. Then 
each new line that is executed could be refer- 
enced. So just before line 5 would execute, the 
following would be done. 

ldx#5 

stx >LINNUM 

After the line has executed and an error flag 
could be checked. If an error has occurred, the 
error could be printed. It may look something 
like: 

ldy >ERRFLAG 
beq CONT 
bsr PRINTERR 
CONT equ * 

Here if ERRFLAG contains a execution 
goes to CONT. Otherwise PRINTERR is 
called and the error type is printed. 

A symbol table could be maintained. It 
would have variable names and their relative 
locations in the data area. Whenever a vari- 
able would be examined, the debugger would 
check the table. Then it would go to the 
variable position in the data area and display 
its contents in the appropriate form. 

Provisions could be made to use break 
points. This could be done by putting software 
interrupts in the actual code to stop its execu- 
tion. Since lines are numbered, they could be 
executed one at a time. Using the line num- 
bers and a listing, the program lines could be 
executed and displayed. 
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The ideas for my hypothetical debugger are 
implemented in many systems. In fact, sys- 
tems that offer debuggers have ones that are 
far more complex then what I have outlined. 
In such systems, programs are compiled in 
debugor non-debug mode. Soonce, everything 
is running fine, the program can be compiled 
in non-debug mode. 

DEBUGGING IN BASIC09 

There is a debugger available in BASIC09. 
It does many of the things that I have outlined. 
The BASIC09 Debugger is a symbolic debug- 
ger. It allows interaction with the program 
using names and statements found in the 
program. If you have worked with standard 
BASICs, you are familiar with interactive 
programming. Many commands can be en- 
tered directly from the keyboard. The BA- 
SIC09 Debugger is much more advanced than 
this, as we will see in a minute. 

To get started with it you must be have 
some program that is of interest. There three 
ways to get into the debugger mode. They are: 

1. Encountering an error. 

2. Executing a pause. 

3. Typing a CTRL-C during program execu- 
tion. 

I like to use PAUSE, It is the most control- 
lable of the three. 

Let's look at a simple example. The follow- 
ing listing is of the procedure test. 

PROCEDURE test 

DIM i j,k : INTEGER 

PAUSE 

i:=2 

j:=i*i 

k:=j*i+j 

END 

Now if we RUN this little, program it will 
appear something like this: 

BREAK: PROCEDURE test 
D: 



The "D:" prompt is waiting for some input. 
Nothing has happened up to this point. The 
variables have not been equated to anything. 
So we should execute the first statement 

D:STEP 

BREAK: PROCEDURE test 

We have now stepped up one program step. 
We can now try: 

D:PRINT i 
2 

and it will print the value of i. Next we enter: 

D:STEP 2 

BREAK: PROCEDURE test 

D:PRINTj,k 

4 12 

Here we stepped up 2 lines and printed the 
resulting value of j and k. 

This can be useful. But it does have its draw- 
backs. We really do not know where we are at. 
Every time we STEP, it prints only that a 
BREAK in PROCEDURE test has occurred. 
There is no mention of where in test. In a large 
program it could be very confusing. So, in the 
original program we change the line PAUSE to 
readTRON. This is the TRace ON feature. Now 
run the procedure test. 



*0011 


i:=2 


=2 




*0018 


j:=i*i 


=4 




*0024 


k:=i*3+j 


=12 




*0034 


END 



This output is a little more useful. First, 
notice how it printed the program lines with 
their I-Code line numbers. We see exactly what 
has occurred. Second, the result of the line is 
printed. This means no longer having to use the 
PRINT statement. 



Let's look at another simple example, 
one will be test2. Here it is. 



This 
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PROCEDURE test2 

DIM ij:INTEGER 

TRON 

FORi:=lT0 2 

j:=altered(lOO) 

IF MOD(j.2)=0 THEN 

PRINT "EVEN" 

ELSE 

PRINT "ODD" 

ENDIF 

NEXTi 

END 

This a simple program. It generates ran- 
dom numbers and test whether they are odd or 
even. The result of the test is printed. Run- 
ning it will give the following printout. 



*000D 
= 1 
=2 


FORi:=lT0 2 




♦001 D 


j:=altered(100) 


=42 




♦0027 


IF MOD(j,2)=0 THEN 


=True 




♦0035 




♦0036 


PRINT "EVEN" 


=EVEN 




EVEN 




♦003E 


ELSE 


♦004 B 


NEXTi 


♦001 D 


j:=altered(100) 


=79 




♦0027 


IF MOD(j,2)=0 THEN 


=False 




♦0042 


PRINT "ODD" 


-ODD 




ODD 




♦0049 


ENDIF 


♦004B 


NEXTi 


♦0056 


END 



Notice how the result of each line is printed. 
In the IF MOD(j,2)=0 THEN statement, a 
TRUE of FALSE is printed according to the 
outcome. On the PRINT lines the result is also 
printed. After line *0036, we see: 

=EVEN 
EVEN 

The first -EVEN- is the result of the debug- 



ger encountering it. Hence, the u - n sign pre- 
cedes it. The second one is the result of the 
actual line. ( As a side note the debugger is 
printing to the standard error path. The pro- 
gram is printing to standard output path. ) 

TRON and PAUSE have their counter 
parts. They are TROFF and CONT which are 
short for TRace OFF and CONTinue. TROFF 
discontinues the trace mode. CONT will initi- 
ate program execution. Using them, select 
parts of a program can be easily debugged. 

During a debug session, any variable can be 
alterred. This is easily done using the LET 
command. Take the following little program. 

PROCEDURE test3 

DIM i:INTEGER 

i:=3 

PAUSE 

PRINT i 

END 

If we were to run this and the PAUSE 
occurred, we could easily enter CONT and 
SEE the result. It wouldprinta3. Orwe could 
change it with: 

LET i:=8 
CONT 

This time an 8 would be printed. Any di- 
mensioned variable can be changed. This is 
extremely handy to test the effect of altering 
variables. When running only a portion of a 
program the variables can preset. 

Another useful tool is the STATE com- 
mand. It prints the nesting of the procedures 
called. It starts with the current procedure 
and prints the calling procedures in reverse 
order. Following are procedures that call 
other procedures. 

PROCEDURE test4 

RUN tests 

END 

PROCEDURE tests 
RUN test6 
END 
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PROCEDURE test6 

RUN test7 

END 

PROCEDURE test7 

PAUSE 

END 

If we were run test4, we would stop in the 
debug mode in test7. Trying the STATE 
command we see the following. 

D:STATE4 
PROCEDURE test7 
CALLED BY test6 
CALLED BY tests 
CALLED BY test4 

If procedures call other procedures and an 
error occurs, it may be difficult to learn from 
which procedure it was called. But with the 
STATE command, a trace back of commands 
will provide the information. 

Another command of interest is BREAK. 
This allows setting a break point at some 
procedure. I find this one useful when want- 
ing to periodically check something in a par- 
ticular procedure. I put a PAUSE in the main 
procedure and then enter: 

D:BREAK test8 
D:CONT 

The main program continues execution. 
Whenever, test8 is encountered, execution 
halts. I can step through it or use CONT to 
restart execution. If test8 is executed again, 
we will stop there. 

The BASIC09 debug mode, also provides 
some other commands. They are: 

LIST List the suspended procedure 

$ Call an OS-9 Shell 

DIR Display procedures workspace direc- 
tory 

DEG Select Degrees for working with 
angles 

RAD Select radians for working with 
angles 

Q Quit debug session 



These are self explanatory. They are simi- 
lar to their counterparts in BASIC09. 

Debugging a program can be a m^jorpartof 
creating it. Good programming technique and 
care can help reduce the amountof errors. But 
inevitably problems will arise. Finding errors 
and correcting them involves good debugging 
technique and if available, a good debugger. 

PLIST, A PROGRAM LISTER 

As I mentioned earlier, for a debugger to 
display a "list" version, some type of listing 
must be created. This is usually done at 
compile time. My assemblers and Pascal 
compilers do this. Basic09, however, permits 
a listing to made at anytime ( but before 
PACKing ), When I do C language programs, 
I have no such listing. In fact, in most of the C 
compilers I have worked with, there is no 
listing. So, this month I am presenting PLIST. 

PLIST is a generic program lister. It can be 
used on any file. It has only a few functions. It 
adds line numbers to the start of each line. It 
puts in top and bottom margins. It also num- 
bers pages and writes a header at the top of 
each page. The header includes the file being 
listed and a page number. 

The syntax for using PLIST is simple. To 
list a file, called MYFILE, enter: 

OS9: list myfile 

The output will go to the CRT screen. You 
can also redirect it to anywhere. Most likely it 
will be the printer or another file, 

I had some thought about adding some 
fiills to this program. Somewhere in the 
header, the time and date could be added. The 
header and margins could be options that are 
selected from the input line with a -H and -M. 
These and other inovations, I will leave to your 
imagination. 

Have a good month! See you next time. 
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LISTING 


0048 if ( count++--0 ) 




0049 count-print_header ( ++page, 


0000 /* ******************************* 


argvtl] ); 


0001 


0050 


0002 Name: Program LISTer 


0051 /* Print the line with number */ 


0003 Date: 28~OCT-87 


0052 printf ("%04d %s", index++ f 


0004 By: Ronald Voigts 


line) ; 


0005 To Compile: ccl plist.c 


0053 


0006 


0054 /* Print footer if necessary */ 


0007 ******************************** 


0055 if ( count— 60 ) 


0008 


0056 count-print_footer ( ); 


0009 Version 1.00 Original. 


0057 


0010 


0058 } /* End of while V 


0011 ******************************* 


0059 


0012 


0060 /* Close the file */ 


0013 Function: 


0061 fclose( fp ) ; 


0014 PLIST prints a formatted 


0062 


0015 version of a file. It adds 


0063 } /* End of main program */ 


0016 numbers to lines, puts in a 


0064 


0017 top margin with header and a 


0065 /* Header routine */ 


0018 bottom margin. 


0066 int print_header ( p f s ) 


0019 


0067 int p; 


0020 ******************************** 


0068 char *s; 


*/ 


0069 ( 


0021 


0070 print_cr( 2 ) ; 


0022 #include <stdio.h> 


0071 printf ("Program Lister 


0023 


Version 1.0") ; 


0024 main( argc, argv ) 


0072 printf ( M Page 


0025 int argc; 


%3d\n", p ); 


0026 char **argv; 


0073 printf PFile name: %s\n" f s ); 


0027 ( 


007 4 print_cr( 3 ) ; 


0028 FILE *fopen(), *fp; 


0075 return ( 7 ) ; 


0029 char line (120]; 


0076 ) /* End of print_header() */ 


0030 register int index=0; 


0077 


0031 int page-0; 


0078 


0032 int count-0; 


0079 /* Footer routine */ 


0033 


0080 int print footer () 


0034 /* Check for the correct number of 


0081 ( 


parameters */ 


0082 print_cr( 5 >; 


0035 if ( argc f- 2 ) { 


0083 return ( ) ; 


0036 printf ("Error in Parameter 


0084 ) /* End of print footer */ 


List\n") ; 


0085 


0037 exit(0); 


0086 /* Print End-of-Lines */ 


0038 ) 


0087 print_cr( n ) 


0039 


0088 int n; 


0040 /* Open the file */ 


0089 ( 


0041 if ( (fp-fopen(argvll],"r") ) « 


0090 register int i; 


NULL } 


0091 


0042 exit ( errno ) ; 


0092 for ( i-0; i<n ; i++ ) 


0043 


0093 printf rW); 


0044 /* Input line numbers */ 


0094 ) /* End of print_cr() */ 


0045 while ( fgetsUine, 120, fp ) 




!- NULL ) ( 




0046 

0047 /* Print header if necessary */ 


+++ 




FOR THOSE WHC 


J A / / /> TO KXOW wxKumtum i| 


1 


| JOURNAL 
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"Solutions". . . A review of SuperScrap and Clipper 

By James E. Law 
1806 Rock Bluff Rd. 
Hixaon.TN 37343 

A major category of software for the Macin- 
tosh is branded as "utilities". While such pro- 
grams are not usually as sexy as desktop pub- 
lishing packages, they do make the user's life 
simpler. This month I want to review two such 
offerings from Solutions, Inc. These include 
SmartScrap (a scrapbook upgrade) and Clipper 
(for sizing graphics). 



SmartScrap 

The Macintosh scrapbook is a nifty idea. It 
provides for saving frequently-used text and 
graphics in a system file that is available in any 
application through a desk accessory. Letter- 
head graphics or boilerplate language for letters 
can be kept readily available for quick use with- 
out quitting the current application. 

The original scrapbook is not without limita- 
tions. Only one such file is generally allowed and 
it has to be in the system folder of the controlling 
system. The size of the window is fixed with no 
zooming or scrolling allowed. Consequently, 
only a portion of the selected text or graphics can 
be viewed if it is bigger than the window. Also, 
cutting and copying involves all or none of the 
selected image. Portions of the image cannot be 
selected. 

SmartScrap removes the above limitations 
and substantially improves the usefulness of the 
scrapbook function, Any number of SmartScrap 
files can be set up and placed anywhere on the 



startup disk or disks in internal drives. These 
files can be accessed through a 31K disk acces- 
sory which provides for creating new files and 
switching between different scrapbook files. 

Images are pasted into SmartScrap just as 
they were into the old scrapbook but once there, 
they can be handled much easier. A zoom button 
expands the SmartScrap window to fill the 
screen. Horizontal and vertical scrolling is pro- 
vided for graphics. (Only vertical scrolling is 
allowed for text.) A selection rectangle can be 
used to copy (but not cut) any portion of a 
selected graphics image. Automatic scrolling 
occurs if the item being selected with the rec- 
tangle extends off the screen. Similarly, a text 
tool can be used to copy any portion of a text 
selection in SmartScrap. 

A pictorial table of contents is constructed for 
a scrapbook file upon request. Double clicking 
an image results in that image being immedi- 
ately displayed. I experienced a number of 
problems with this feature, however. On occa- 
sion, the table of contents displayed images that 
were not in the scrapbook and incorrectly indi- 
cated the location of images. After a while, this 
problem cleared up and I could not get it to 
reoccur. I do not know i fit was a SmartScrap bug 
or incompatibility with my desk accessories. I 
suspect the latter. 

SmartScrap out classes the original scrap- 
book by a mile. If you use the scrapbook, scrap* 
the original version and buy SmartScrap. 
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Consider the following, however, before you 
spend your $50 on SmartScrap or other scrap- 
book upgrade. Clip art management programs, 
like Art Roundup, can do almost everything 
SmartScrap does and more. Images are left in 
their original paint or draw type files and ac- 
cessed through a desk accessory. Similar desk 
accessories are marketed to access and manipu- 
late text files. In the final analysis, such pro- 
grams may make the scrapbook largely obselete 
for many users 

Clipper 

Having graphics neatly placed in SmartScrap 
files ensures their ready availability. It does not, 
however, ensure that the art work is the right 
size for your application. Suppose that when 
preparing a Page Maker publication you decide 
to add an illustration that is the width of a 
column and 3 inches long. What do you do? Well, 
you could paste the graphic into Super Paint or 
MacPaint and re size it. The problem is knowing 
when it is the right size. If the final size is really 
critical, it might take several trips back and 
forth between Page Maker and the graphics 
program until you get it right. A better solution 
would be to resize the object in Page Maker by 
stretching or shrinking the graphics block with 
the graphics placed in its target position. This, 
while better than the first approach, is still a 
matter of trial and error. 

Clipper is a desk accessory which provides an 
elegant solution to this problem. It provides for 
very accurate scaling and^or trimming of graph- 
ics. When Clipper is chosen from the DA menu, 
a new Clipper menu bar appears and a transpar- 
ent frame is superimposed over the active appli- 
cation. This frame is moved into position and re 
sized as needed to exactly match the space to be 
occupied by the graphics. (This is as easy as 
moving and re sizing a rectangular frame in the 
draw portion of SuperPaint.) Tabs on the frame 
display the size of the area enclosed in number of 
pixels. 

Selecting "Show Contents'* from the Clipper 
menu displays the contents of the clipboard 
inside this frame. If the image is larger than the 
frame, only the portion inside the frame will be 
visible. Scroll bars will appear on the frame so 
that all portions of larger images can be viewed. 



Unless the size of the image is perfect as is, 
scaling or trimming is then needed. 



Hbout the Clipper 



Show Content 

Slow Scroll 

Scale to Fit 

Trim to Fit 

Scale... 

Trim... 

Keep Proportions 

Select Type 

Reuert to Original 



Quit 



The Clipper Menu 

Clipper offers four alternatives for re sizing 
graphics each of which is accomplished by 
making proper selections from the Clipper 
menu. 

1. The graphics can be Scaled to Fit the area en- 
closed by the frame. When the option is chosen, 
the entire graphics image is shrunk or expanded 
to fill the enclosed area with original proportions 
maintained. 

2. The graphics can be Trimmed to Fit the en- 
closed area. When this option is chosen, the 
portions of the image not visible in the Clipper 
frame are trimmed away. 

3. If you need more control over the scaling of 
images, (e.g., to maximize the clarity of re sized 
paint-type graphics), the Scale option can be 
selected. This option allows separate horizontal 
and vertical resizing independent of the size of 
the Clipper frame. The scaling information may 
be expressed in pixels, millimeters, picas, 
inches, or percent. 

4. Similar flexibility is available for trimming by 
selecting the Trim option from theClipper menu. 
This option allows the specific screen coordi- 
nates to be given for each side of the trimmed im- 
age. 
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Additional features on the Clipper menu in- 
clude the ability to slow the scrolling speed for 
increased precision, to revert the image to its 
original size, and to select the type of images to 
be displayed and re sized. This last option can be 
used when a graphics contains multiple types of 
images (e.g. TEXT and PICT) and when only a 
portion of these are to be pasted into the new 
application. By this option, the text portion of an 
image could be deleted from a chart to be pasted 
into a report. 

The above explanation probably makes Clip- 
per sound more complicated than it really is. In 
reality, this DA is intuitive and, although the 
manual is entirely adequate, it is not needed. To 
illustrate how easy Clipper is to use, let's go back 
to the problem that started off this review, that 
is, ( 

ran 



This is the Clipper sizing 
box. Clipboard images may be 
viewed in this box before pasting 
them. The image may be scaled 
or trimmed to exactly fit the area 
surrounded by the box. The 
numbers in the tabs shown the 
screen coordinants of 
the image 



m 



24t1 



I 19Q| " 

The Clipper Box 

the need for a 3-inch column illustration for a 
Page Maker publication. Here's how Clipper 
would be used: 

1. Select Clipper from the DA menu 

2.Move and re size the Clipper frame to enclose 
the area to be filled by the illustration. 

3.Select Show Content from the Clipper menu to 
display the image from the Clipboard in its 
original size inside the frame. 



FOR THOSE WH 



4.Select Scale to Fit or Trim to Fit from the 
Clipper menu and the image is instantly re sized 
to fill the frame. 

5. Quit Clipper and paste the image. It will 
appear in exactly the correct size and ready to 
make final positioning adjustments. 

This program does what it is advertised to do 
and does it well. In trimming and scaling a 
number of images for use with PageMaker and 
ReadySetGo, no problems were encountered. 
Anyone needing to precisely size graphics for 
placement in page layouts will appreciate the 
simplicity and usefulness of this program. 

Final Comments 

ScrapScrap and Clipper will work with any 
Mac with 512K or more. In both cases, the 
manuals are clear and complete. These products 
are recommended. 

Other "Solutions" 

I had intended to also cover another some- 
what related Solutions, Inc. product called Glue. 
This program allows users to view ReadySetGo 
or PageMaker pages, Excel spread sheets, or 
full-sized MacPaint documents without the 
documents used to generate them. An upgraded 
product called SuperGlue is now being sold 
which allows the images to be converted to 
regular scrapbook images where they can be 
viewed and edited without requiring SuperGlue. 
I will forego a review of Glue now in the interest 
of providing more current information on Super- 
Glue later. 
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Mile 6, heading for Mile 7. 

By now you should all be thoroughly refreshed after a nice, long test-free rest, but before we 
take off I'd like to warn you to stay close together. Tiy not to straggle, as well be skirting the 
territory of the M'bul-yan tribe, and they're known to have a habit of picking olTlone travellers 
and strays from a paity. Folks who get "picked up" by the M'bul-yans never get heard from 
again, and to date no-one has ever been able to find out what happens to them - mainly because 
whoever hangs around trying to find out also never gets seen again. So be warned! Stay close! 

PREPARING FOR RED-NUMBER DECODING 



D>aqfam 20 



If our pencils are all sha^jened and at the ready, here we go with a prellminaiy technique 
for decoding the red numbers in our How-table in order to see what our circuit looks like. In this 
simple example, we'll begin by drawing up a table as shown Jn Diagram 20. wtth all the red 
numbers arranged in numerical order in the heading, and with rows labelled for our relays and 
output. The table is completed in this manner : 

Let's start with the two relays, by examining our STATE-DIAGRAM again. The first box. Box- 
1 . gives the relay-states in binary as 00, so we do nothing with this Box. Box-2 contains the 
code 01. the T indicating that we are interested in relay Y2. (Remember the bits are in the order 
Yl. Y2). We're at Box-2. so we therefore look in the FLOW-TABLE for all addresses containing a 
black- 2 tn Box-A. There are two such addresses, one of which has a red-4 in the corresponding 
Box-B. and the other a red-5. Are you with me so far? If not. go back and take this paragraph 
again - a little more slowly. As this red-4 and red-5 pertain to Y2. we Indicate this fact by insert- 
ing a T in columns 4 and 5. row Y2, of Diagram 20. 

Then we move on to the next Box in our STATE-DIAGRAM, Box-3-black, which contains the 
binary-code 11. informing us that we are interested here In both Yl and Y2. Box-3 means we 
now have to look for black-3s in the FLOW-TABLE, and again we find two of them, with corre- 
sponding red numbers 1 and 3. So, In columns 1 and 3 of Diagram 20. rows Yl and Y2» we 
Insert Ts to record this fact. 

Finally. Box-4 In the STATE-DIAGRAM, coded 10. signals that we are Interested only In Yl 
and black-4s. Once more we Hnd two addresses with a black-4 in Box-A In the FLOW-TABLE, 
corresponding to red-6 and red-7. so in columns 6 and 7 of diagram 20. row Yl. we insert Is to 
record this info. 

This leaves only row LI in Diagram 20 to be filled In. This Is accomplished by systematically 
scanning through ail Box-Cs in the Flow-Table, row by row. and recording Is or phi's according 
to the red numbers In the corresponding Box-B. 
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You may be Interested to know that the red numbers are actually mlnteims. and conespond 
to a decimal translation of the co-ordinates of the squares on a K-map which our circuit would 
occupy - if we went to the trouble of re-translating our networks Into Boolean expressions and 
then plotting them on a K-map. In fact, from now on. I will often refer to a red number as a 
mlnteim - - mlnterm-6 or mlnterm-73. for Instance. 



NOW FOR THE ACTUAL DECODING 
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Diagram 21 
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Let's tackle Yl first, shall we? For starters, we draw up a decoding-table for Yl. as shown in 
2 la. To the left of the vertical line our table Is headed with the mlnteim-numbers appropriate to 
Yl (see Diagram 20). and to the right with control-designations X, y 1 and y2. which, in turn, are 
headed with their corresponding binaiy values 4. 2 and 1. Decoding Is begun by marking a small 
'x' under the lowest available mlnteim [in this case It's '!'), and the corresponding binary equiva- 
lent is written to the right, le. 001. 

Keeping in mind that our lowest minterm Is 1. we switch our attention to the 001 to the 
right. Commencing with the highest bit-position (that is. 4). we see that it contains *0\ It's our 
Intention to make this into a phi. if at all possible. This means that we'd have to superimpose a 
"1* over the '0' in order to create this symbol. Inserting a T in this bit-position corresponds to 
ADDING 4 to our base-minteim. 1 + 4 = 5. but unfortunately Yl does not have a minterm-5. and 
we are therefore NOT allowed to change this bit-position to a phi. Stay with me, and ittl all 
gradually become clear! 

Bit-4 being ruled out, we move right to bit-2 . which also contains a 0. To convert this to a 
phi, we would again have to try superimposing a 1. that is, ADDING the value 2 to our base- 
mlnterm. 1+2 = 3. and we observe that Yl does tn fact have such a mlnteim in its heading. Ac- 
cordingly we place a 2 under mlnterm-3 (to tndlcate that it was bit-2 that allowed us to do this), 
and go ahead and superimpose a 1 (thus creating a phi) in the binaiy number to the right. See 
Diagram 21b for the decoding to this point. 

Finally, we consider the least-significant bit of our binaiy number. This contains a 1. which 
means that In order to convert it to a phi we'd have to superimpose a 0, not a 1 as in our earlier 
tiles. Tills means having to SUBTRACT the value of this bit-posiUon from our base-minteim. so 
we ask ourselves "Is 1 - 1 = available?" The answer is NO. so this completes the operation on 
Line 1. 

Because we haven't yet "covered* all of Y l's mlnterms. we open up a new line of decoding 
[see 21c for this] by placing a small x' under the NEXT LOWEST AVAILABLE mlnteim not 
already covered. This happens to be minterm-6. and again we write its binaiy equivalent to the 
right, that is. 110. 

Then we repeat our earlier procedure, thus : 

"Is 6 - 4 = 2 available? No!" Note that we SUBrRACT 4 because we're considering placing a 
over the 1 in bit-position 4. which corresponds to REMOVING the value 4 from the binaiy num- 
ber. Next "Is 6 - 2 = 4 available? No!" Last bit coming up. "Is 6 + 1 = 7 available? YesT So we 
enter 1 under mlnteim- 7 to indicate that it was the 1-bit which allowed us to cover it. and 
change the final bit of 1 10 into a phi. At the risk of becoming boring, note that we ADD a 1 in 
this case, because we're considering superimposing a 1 on to a 0. Don't foiget to conveit the ap- 
propriate bit-position to phiif you successfully expand your base-minterm, otheiwlse your 
resultant circuit won't work properly!!! 
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This completes the decoding for Yl. as we've now covered all available mlnteims. Our decod- 
ing, to the the right, consists of the binaiy terms 0-1 and 1 1- (replacing phis with '-*). which 
translate into the Boolean expression 

Yl = xy2 + xyl 

from which you should experience no difficulty In drawing up the corresponding network for 
YL 

And so on for Y2 and LI (shown in Diagram 22) except lhat in the case of LI. mlnteims 4 
and 7 have a phi marked over them, to Indicate that these mlnterms are OPTIONAL, and we 
don't have to cover them unless they should prove useful to us. 
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The procedure for Y2 goes like this : 

Place a small 'x' under the lowest available mlnterm, mlnterm-1. and write the equivalent 
binary value, 001. to the right. OK, heie we go! "Is 1 + 4 = 5 available? Yes!" So we place a 4 
under minterm-5 (because blt-4 produced this), and change bit-4 to a phi. Next "Is 1 + 2 = 3 
available? Yes!" BUT .... and here Is the tricky part! You'll recall from our K-map days that 
when we formed loops on the map (which. In essence, is what we're doing here), the size of 
the loops had to be related to the binary system, and we were therefore only allowed to form 
loops of size. 1. 2. 4. 8 ... mlnterms. So also with our decoding- table! 

To date. In our decoding- table, we commenced with a single mtnterm. and then expanded 
It to two. Now we have three, which we MUST expand to four, or else forget this "try" alto- 
gether. How do we do this? The rule is that if a bit-number can be added to the base-min- 
term. THEN IT MUST ALSO BE ADDED TO EVERY QrHER MINTERM ALREADY COVERED 
BY THE CURRENT DECODING-LINE. Therefore, because 1 ♦ 2 = 3 is available, but 5 + 2 = 7 
is NOr, we are forbidden to make use of bit-2 at all. otherwise* as you can see. we'd be form- 
ing a loop of only 3 mlnterms. composed of mlnterms 1. 3 and 5. Further, because we 
"started a run" but were unable to complete It successfully, it COULD happen that this row 
will not be necessary to our final decoding. That Is, it may NOT be an ESSENTIAL prime im- 
plicant. (See an earlier lesson for a definition). We indicate an uncompleted run by placing a 
tick' to the right of our decodlng-line. 

We still cany on with this line, however, and ask next "Is 1 - 1 = available? No!" So that 
completes the decoding of this line, and we start a new row by placing a small 'x' under the 
next lowest available mlnterm not covered at all so far. namely 3. and the corresponding 
binary-value Oil to the right. 

Proceeding, "Is 3 ♦ 4 = 7 available? No!" "Is 3 - 2 = 1 available? Yes!" So we place a 2 
(why?) under mlnterm- 1 and change bit-2 to the right Into a phi. DONT FORGET THIS PHI 
OPERATION! Finally. "Is 3 - 1=2 available? No!" And that's the end of row 2. 

However, mlnterm-4 is still uncovered, so we enter a small V below it in row 3 and write 
the equivalent 100 to the right. "Is 4 - 4 = available? No!" "Is 4 ♦ 2 = 6 available? No!" "Is 4 + 
1 = 5 available? Yes, it is!" And we therefore enter a 1 under minterm-5 and change bit-1 to 
the right into a phi. 

Just as with a K-map, we can use mlnterms as many times as we wish during the decod- 
ing, even though they may already be covered in an earlier row. The base-minterm for starting 
a new row MUST, however, NOT be covered by an earlier row's decoding. 

We observe that our last two (unticked, and therefore ESSENTIAL) rows actually cover all 
available mlnterms, thus row-1 is not essential to our decoding, although this will not AL- 
WAYS be the case. Accordingly we have for Y2 the decoding : 

Y2 = ;Cy2+Xyr 
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PASCAL Compiler from OmegaSoR (now Ceitified Software) - For 
the PROFESSIONAL: ISO Based, Nauve Code Compiler. Primarily 
for Real -Tune and Process Conirot applications. Powerful: 
Flexible. 

OS-9, F, S and CCF - $550.00 
OS-9 69000 Version. $900 M 

K BASIC - from S.E. MEDIA - A "Native Code" BASTC Compiler 
which is now Fully TSC XBASIC compatible. The compiler 
compiles to Assembly Language Source Code. A NEW, 
stseamlined, Assembler is now included allowing the assembly of 
LARGE Compiled K BASIC Programs. Conditional assembly 
reduces Run-time package. 
FLEX. SK+DOS. CCF, OS-9 Compiler /Assembler $99 DO 

CRUNCH COBOL from S.E. MEDIA - Supports laige subset of ANSII 
Level I COBOL wiih many of the useful Level 2 features. Full 
FLEX, SK*DOS File Structures, including Random Ftles and the 
ability to process Keyed Files. Segment and link large programs at 
run lime, or implemented as a set of overlays. The System requires 
56K and CAN be run with a single Disk System. A very popular 
product. 

FLEX, SK'DOS. CCF -$99.95 

FORTH from Steams Electronics - A CoCo FORTH Programming 
Language. Tailored to the CoCof Supplied on Tape, transferable to 
disk. Written in FAST ML. Many CoCo functions (Graplucs, 
Sound, etc.). Includes an Editor, Trace, etc. Provides CPU Cany 
Flag accessibility. Fast Task Multiplexing, Clean Interrupt 
Handling, etc. for ihe "Pro"* Excellent "Learning" tooH 
Color Computer ONLY - 558.95 
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FORTHBUILDER is i stand alone target compiler (crowcornpiler) for 
producing custom Fonh system* and application prog rams. 
All of ihc S3 -standard defining words and control siructures aie 
xeooftniaed by FORTHBUILDER. 

FORTHBUILDER is designed to behave as much as possible like 
a resident Forth inteiprcter/compucr. so thai mat of the 
established techniques for wniing Foith code can be uied without 
change. 

like compilers for other languages, FORTHBUILDER can operate 
in "batch mode". 

The compiler reepgnuss and emulates target names defined by 
CONSTANT or VARIABLE and is readily extended with 
"compik-time* definitions to emulate specific target words. 
FORTHBUILDER is supphed as an executable command file 
configured for a specific host system and target processor. Object 
code produced from the accompanying model source code is 
royalty-free to licensed users. 
P.CCF.S* 599.95 

DATABASE ACCOUNTING 

XDMS front Westchester Applied Business Systems 

FOR 6809 FLEX-SK^DOStf/S") 

Up to 32 groups/fields per record I Up to 12 character filed namel Up to 
1024 byte recordsl User defined screen and print con troll Process 
filesl Form f ileal Conditional ex ecu i ion f Process chaining! Upwaid/ 
Downward Hie linking! Fiie jojiungl Random fife virtual pagingl 
Built in utilities! Built in text line edilorl Fully session orientedl 
Enhanced forms I Boldface, Double width. Italics and Underline 
supportedl Wrioen in com pi a structured assembler! Integrated for 
FAST execution 1 
XDMS-IV Data Management System 

XDMS-IV is a brand new approach to data management It not only 

permits users to describe, enter and retrieve data, but also to process 
entire filet producing customized icports, screen displays and file 
output Processing can consist of any of a set of siandard high level 
functions including record and field selection, sorting and 
aggregation » lookup* in other files, special processing of record 
sublets, custom report formatting, totaling and subtotaling. and 
presentation of up to three related files as a "database* on user 
defined output rcporu 
POWfcttFUL COMMANDS! 

XDMS-IV combines ihe functionality of many popular DBMS software 
systems with a new easy to use command act into a single integiated 
package. WeVe included many new features and commands 
including a set of genetal file utilities. The processing commands 
are Input-Process Output (IPO) oricrue which allows almost instant 



implementation of a process design, 

SESSION ORIENTED! 

XDMS-IV is session oriented. Enter "XDMS" and you are in instant 
command of all the features. No more wailing for a command to 
load in from disk I Many commands are immediate, such as 
CREATE (file definition). UPDATE (file editor). PURGE and 
DELETE (utilities)., Others are proaets commands which tie used to 
create a user process which is executed with a RUN command. 
Either may be entered into a "process" tile which is executed by an 
EXECUTE statement, Processes may execute other processes, or 
ihemselves. either conditionally or uncunditjonally. Menus and 
screen prompts are easily coded, and entire user applications can be 
run without ever leaving XDMS-IV 

ITS EASY TO USE! 

XDMS-IV keeps data management simpkl Rather than design a complex 
DBMS which hides the true nature of the data, we kept XDMS-IV 
file ohenud. The user view of data relation ships is presented in 
reports and screen output, while the actual dila resides in easy to 
maintain files. This aspect permits customized presentation and 
reports wiihoul complex redefinition of ihe database files and 
structure. XDMS-IV may be used for a wide range of applications 
from simple record management systems (addresses, inventory ...) 
to integrated database systems (order entry, accounting- ) 

The possibilities are unlimited... 

FOR 6*» FLEX.SK*DOS(5/S") $249.95 



ASSEMBLERS 

ASTRUK09 from S E. Media - A "Structured Assembler for the 6B09* 
which require* the TSC Macro Assembler. 
F, S t CCF . $99.95 
Macro Assemble* for TSC ~ The FLEX, SK'DGS STANDARD 
Assembler 

Special ~ CCF $35 M; F.S $50 JW 
OSM Extended 6809 Macro Assembler from Lloyd I/O. - ProvWks local 
labels, Motorola S-reconb. at id Intel Hex records; XREF. 
Gene6rate OS-9 Memory modules under FLEX. SK*D05. 
FLEX. SK+DOS, CCF. OS-9 $9900 
Relocating AsfesnbJer/Llnklng Loader from TSC. - Use with many of 
the C and Pascal Compilers. 
F.S, CCF $150.00 
MACE, by Graham Trott from Windnuh Micro Systems - Co»ftesideni 
Editor and Assembler: fast interactive A.L. Piogramming for small 
to medium -sized Programs. 
F t S,CCF*$75D0 
XMACE - MACE w/Crois Assembler for 660CV1/2/3A 
F,S.CCF.$98JDO 
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UTILITIES 

6ask09 XRef from S.E Madia - Thii Baiic09 Crots Reference Utility 
u a Baitc09 Piogram whidi will produce a "prruy printed" listing 
with each line numbered, followed by a complete cross referenced 
lining of ail variables, external procedures , and line numbers called. 
Also includes a Program Liii Utility which outputs a fast "pretty 
punted" listing with line numbers. Requires Basic09 or RunB. 
O A CCO obj. only - 139.95; wf Source - 179.95 

etVec Routines - Complete set of routines to allow simple 

implementation of keyed files -for your programs - running under 
Basic09. A real time saver and should be a pirt of every terioui 
programmers tool -box. 

O A CCO obf. only. $89,95 

Lucidita PASCAL UTILITIES (Require* Pascal ver3) 

XREF - projaice a Doss Reference Listing of airy text: oriented to 
rascal Source. 

INCLUDE - Include other Fact in a Source Te*t* including Binary - 
unlimited nesting. 

PROFILER - pioviAcj an (ndenmd. Numbered. "Struclogram" of a 
Pascal Source Text Rle; view the overall structure of Urge 
programs, pof/im integrity, etc. Sussed in Pascal Source Code; 
requires ccanpilation. 

F.S.CCF - EACH 5 m -UO0O, 8'.$50A0 

DUB from &E. Media ~ A UalFI.EX BASIC dcconapller ReOcait a 
Sxmz Listing from UniFLEX Compiled basic Prognms. Works 
w/ ALL Versioni of 6809 UniFLEX basic 
C/* $2/9.05 

LOW COST PROGRAM KITS from Southeast Media The following 

kits arc available for FLEX. SK*DOS on either 5" of 8' Disk. 
1. BASIC TOOL.CHESF $29.95 

BUSTER. CMD: pnaiy printer 

(JNEXRfiP.BAS: line cross-referencer 

REMPACBAS, SPCPACBAS, COMPACBAS: 

tvmovc supeif luous code 

STRIP ,BAS: superfluous line-numbers strppcr 
3. FLEX, SK'OOS UTILITIES KIT $39.99 

CATS. CMD: alphabetically- sorted directory listing 

CA1D,CMD: dauvsocted directory listing 

COPYSORT.CMD: file copy, alphabetically 

COPYDATE.CMD: file copy, by date-order 

FTLEDATE.CMD: change file creation date 

CVTO.CMD (A (NFOGMX.CMD): tells disk attributes ^contents 

RELINK. CMD (A REL1NK82): reorders fragmented free 

chain 

RESQCMD: undeletes (recovers) a deleted file 



SECPORS.CMD: show vector order in free chain 
XLCMD: super text lister 

3. ASSEMBLERS/DISASSEMBLERS UTILITIES 

$39.95 
UNEFEED.CMD: modulariie' disassembler output 
MA11I.CMD: decimal, hex. btn*ry, octal conversions 
A tables 
SKIP.CMD: column stripper 

4. WORD - PROCESSOR SUPPORT UTILITIES 

$49.95 
FULLS rOPCMD: checks for capitalization 
BSTYCJT.BAS (B AC): Stylo to dot-matrix printerr 
NECPRINT.CMD: Stylo to dot-matrix primer filter code 

5. UTILITIES FOR INDEXING $49.95 

MRNU.B AS: selects required program from lilt below 
INDEX BAC: word index 
PIWASES.BAC: phrase index 
OONTEMT.BAC: table of contents 
INDXSORT.B AC: fast alphabetic sort routine 
K3RMATER.BAC: produce* a 2-cdumc formiaed index 
APPENDS AC: append airy number of Rks 
CHAR BIN: line rc-dcr 

BASIC W TOOLS consist of 21 subroutines for Basic09. 
6 were written in C Language and the rcjnainder in assembly. 
All the routines are compiled down to native machine code which 
makes them fast and cxmpmcL 

1. CFILL — fills a string with characters 

2. DPEEK - Double peek 

3. DPOKE - Double poke 

4. FPOS - Current file position 

5. FSIZE •• File siv 

6. FT RIM ~ removes leading spmces from a string 

7. GET PR - returns the current process ID 

8. GETOPr - gets 32 byte option section 

9. GETUSR - gets the user ID 

10. GTIME gets the time 

1 1. INSERT - insert a string into another 

12. LOWER ~ converts a string into loweicaie 

13. READY - Checks for available input 

14. SETPRIOR ~ changes a pnzii priority 

15. SEFUSR - changes the user ID 

16. SETFOPr - set 32 byte option packet 

17. STIME - sets the time 

18. SPACE - adds spaces to a suing 

19. SWAP - swaps any two variables 
2a SYSCALL ~ system call 

21. UPPER —converts a string to u^noir 
For OS 9 S4A95 • Imludo Source Code 
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See Review in Januaiy 1987 issue of 68 Micro Journal 

SOFTOOLS 

The following programs tie included in objed form for immediate 
application. PL/9 source code available for customization. 

READ* ME Complete instruction* for initial set-up and operation. Can 

even be printed out wiih the included text processor 
CONFIG one time system configuiaiion. 

CHANGE changes words, characters, etc. globally to any text type file. 
CLEANTXT converts text files to standard FLEX. SK^DOS files. 
COMMON compare two text files and reports difference*. 
COMPARE another check file Ihat reports mis -matched lines. 
CONCAT similar to FLEX. SK'DOS append but can also list file* to 



DOCUMENT for PL/9 source files. Vciy useful in examining pamneler 

pasting aspects of procedures. 
ECHO echos to either screen or file, 
FIND an improve find command with "pattern" matching and wildcards. 

Very useful. 
HEX dumps files in both hex and ASCII. 
INCLUDE a file copy program that will accept "includes'* of other disk 

files 
KW1C allows routing each word, on each line to the beginning. Very 

useful in a sort program, elc. 
LISTD1R a diredoiy listing program. Not super, but better than CAT. 
MEMSORT a high-spead text file sorter. Up to 10 fields may be sorted. 

Vay fasL Very useful 
MULTJCOL width of page, number of columns may be specified. A 

MUST! 
PAGE similar to LIST but allows for a page header, page width and 

dcplh. Adjust for CRT screen or printer as set up by CONFIG, A 

very wna/i piini driver. Allows punter control command* 
REMOVE « fut file deleter. Careful, no piompts issued. Zap, and its 

gone! 
SCREEN a screen listing utility. Word wraps text to fit screen. Screen 

dcplh m*y be altered at n*n time. 
SORT a super version of MEMSORT. Ascending/de&anding order, up 

to 10 keys, case over-ride, son on mh word and sort on characters if 

file is small enough, sorts in RAM. If laige file, sort is eooii/ained 

to size of your largest disk capacity. 
TPROC a smalt but nice lext formatter. This is a complete formatter and 

has functions not found in other formatters. 
TRANSL1T sons ■ file by a keyfields. Oiecki for duplications. Up to 

10 key files may be used, 
UNROTATE used with KWIC this program reads an input file and 

unfolds it a line at a time. If the file has been sorted each word will 

be presented in sequence. 
WC a word court! utility. Can count words, characters or lines. 

NOTE: tab set of utilities cuoaists <* 6 5.1/4" disks or 2 8" disks, w/ 
sotitxe (PL9). 3 5.1/4" disks or I 8* disk w/o source. 
Complete set SPECIAL INTRO PRICE: 
5-JAT w/source FLEX - SK'DOS - $129.95 



w/o source - $79.95 

8" w/source - $79.95 - wA> source $49.95 

FULL SCREEN FORMS DISPLAY from Computer Systems 

Consultants -- TSC Extended BASIC piogram supports any Ser al 
Terminal with Cursor Coutiol or Mem oiy- Mapped Video Displays; 
substantially extends the capabilities of the Program Designer by 
providing a table-driven method of describing and using Full Screen 
Displays. 

F. S and CCF, U - $25.00, wf Source . SSOjOO 

SOLVE from S.E. Media - OS 9 UveU I and II only. A Symbolic 
Object/Logic Verification &. Examine debugger. Including inline 
debugging, disassemble and assemble. SOLVE IS THE MOST 
COMPLETE DEBUGGER we have seen for the 6809 OS-9 senesl 
SOLVE does it all I With a rich selection of monitor, assembler, 
disassembler, cnvinauncntal, execution and other miscellaneous 
cDrnmandi, SOLVE is the MOST POWERFUL tool-kit item you 
cm own! Yct» SOLVE is simple to use! With •orrpleae 
documentation, a snapl Everyone who has ordered this package has 
ntvedl See review - 68 Micro Journal - December 1985. No 'blind* 
debugging hen*, full screflt displays, rich and complete in 
information presented. Since tevjew in 68 Micro Journal, this is our 
fastest mover! 

Levels I 4 If only - OS-9 $69.95 



DISK UTILITIES 

05*9 VDIs* from S.E. Media - For Level I only. Use the Extended 
Mcmoiy capability of your SWTPC or Gimix CPU card (or similar 
format DAT) for FAST Program Compiles, CMD execution. high 
speed inter-process conmunicalions (without pipe buffers), etc. - 
SAVE that System Memory. Virtual Disk size is variable in 4K 
inoc&irTits up to 960K. Some Assembly Required. 
UveU OS-9obj.S79J95;w/Sotrce SI 49.9$ 

OF from S.E. Media - Written in BASIC09 (with Source), includes: 
REFORMAT, a BASIC09 Program that reformats a chotcn amount 
of an OS 9 disk to F1£X, SK*DOS Format so it can be used 
normally by FLEX. SK'DOS; and FLEX, a BASIC09 Program thai 
does the actual read or write function to the special O-F Transfer 
Disk; user-fr endly menu driven. Read the FLEX, SK*DOS 
Directory. Delete FLEX, SK'DOS Files, Copy both diiections, etc. 
FLEX, SK'DOS users use the special disk just like any other FLEX, 
SK'DOS disk 

0- 6809/68000 179.95 

LSORT from S.E. Media - A SORT/MERGE package for OS-9 (Level I 
A II only). Sorts records with fixed lengihs or variable lengths. 
Allows for either ascending or descending son. Sorting can be done 
in either ASCII sequence or alternate collating sequence. Right, left 
or no justification of data fields available. LSORT includes a full 
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set of comment* and rnon messages. 
OS-0 5*5,00 

HIER from S.E. Media - HIER is a modem hierarclkxl storage system for 
users under FLD(. SK*DOS. It answer* ihe needs of (hose who 
have hard disk capabilities on iheir s ystems. or many Die* on one 
disk * any tint. Using HIER a regular (aay) FLEX, SK'DOS 
dhfc (8*5- hard dlsJt) can have sub airenorics. By this method 
the problems of assigning unique names to files is lets burdensome. 
Different files with the exact same name may be on ihe tame disk, 
as long as ihey are in different directories. For the Winchester user 
this becomes a must. Sub^durcwries arc the modem day solution 
lhat all current large systems use. Each directory looks to FLEX, 
SK # DOS like a regular file, eicept they have the txtendoa 
'.DIR*. A full set of directoiy handling programs are included, 
making the operation of HIER simple and straightforward. A 
special install package it includad to install HIER to your particular 
version of FLEX, SK*DOS. Some assembly required Install 
indicates each byte or reference change needed. Typically - 6 byte 
changes in source (furnished) and one assembly of HIER is all that 
is lequiied, No programming tequiiedl 
FLEX*SK*DOS $79.95 

COPYMULT from S.E. Media - Copy LARGE Disks to several 

smaller disks. FLEX. SK*DOS utilities allow the backup of ANY 
siae disk to any SMALLER size diskettes (Hard Disk to floppies, 8" 
to 5", etc.) by simply inserting diskettes as requested by 
COPYMULT. No fooling with diMClory deletions, etc. 
COPYMULT.CMD understands normal "copy" syntax and keeps up 
with files copied by maintaining director es for bodi host and 
receiving disk system, Also includes BACKUP.CMD to download 
any size "random" type file; RES1T2RE.CMD to restructure copied 
"random" files for copying, or rr copying back to the hoit lystem; 
and FREEUNK.CMD as a "bonus" utility that "relinks" the free 
chain of flo|W or hard disk, eliminating fragmentation. 

CompUiely otocamtHted Assembly Lang uage Source files included, 
ALL 4 Programs (FLEX. SK'OOS. 8' or 5') $99 JO 

COPYCAT from Luddate ~ Postal NOT required. Allows reading 
TSC Mini-FLEX. SK-DOS. SSB DOS68, and Digiial Research CP/ 
M Disks while operating under SK-DOS , FLEX I.O, FLEX 2.0. or 
FLEX 9.0 with 6800 or 6809 Syttcms. COPYCAT will not 
pei form miracles, but, between the program and the manual, you 
Stand a good chance of accomplishing a transfer. Also includes 
some Utilities to helpouL Programs supplied in Modular Source 
Code (Assembly Language) to help solve unusual problems. 
F. Sand CCF 5" • $50.00 F.S 8* -$6500 

VIRTUAL TERMINAL from S.E Media - Allows one terminal to do 
ihe work of several The user may start as many as eight task on one 
tei.ninai, under VIRTUAL TERMINAL and switch bade and forth 
between task at will No need to exit cadi one; just jump back and 
forth. Complete wilh configuration program. The best way to keep 



up with those background programs. 

O & CCO - obj. only - $49.95 
FLEX, SK'DOS DISK UHLITIES from Computer Systems 

Consultants •• Eight (8) different Assembly Language (w/ Source 
Code) FLEX. SK'DOS Utilities for eveiy FLEX. SK*DOS Users 
Tod box: Copy a File with CRC Errors; Test Disk for errors; 
Compare two Disks: a fast Disk Backup Program; Edit Disk 
Sectors; Linearize Free -Chain on the Disk; print Dtik Identification; 
and Son and Replace the Disk Dinsctoty (m sorted order). - PLUS 
- Ten XBASIC Piograms including: A BASIC Reseqoencer with 
EXTRAS over "RENUM" like check for missing label definitions, 
processes Disk to Disk instead of in Memory, etc Other ptograms 
Compare, Merge, or Generate Updates between two BASIC 
Prog ram i. check BASIC Sequence Numbers, aompare two 
untequcrxzarf files, and 5 Programs for establiihing a Master 
Directory of several Disks, and sorting, selnomg. updating, and 
printing paginated listings of these files. A BASIC Cross-Refcrmtz 
Program, wiinen in Assembly Language, which provides an X-Ref 
Listing of the Vaiiables and Reservad Wotdi in TSC BASIC. 
XBASIC. and PRECOMPILER BASIC Programs. 
ALL Utilities include Source* (either BASIC or At. Source Code). 

F, S and CCF - $50.00 

BASIC Utilities ONLY for UniFLOC -- $10.00 

COMMUNICATIONS 

CMODEM TeussMxnmunkations Piogram from Computer Systems 

Consultants. Inc. — Menu-Driven; supports Dumb-Teiminal Mode, 
Upload and Download in non-protocol mode. «nd the CP/M 
**Modcm7" Christensen protocol mode to enable communication 
capabilities for almott any requirement- Written in "C". 

FLEX. SK*DOS. CCF. 05-9. UniFLEX. 68000 A 68&th 
Source $100,00 - without Source $50 DO 

X-TALK from S.E. Media - X-TAIJC consist* of two disks and a special 
cable, the hookup enables a 6809 SWTPC conpuur lo dump 
UniFLEX files directly to the UniR.EX MUSTANG-020. this is 
the ONLY currently available method to transfer SWTPC 6809 
UniFLEX files to a 68000 UniFLEX system. Gimix 6809 users 
may dump a 6809 UniFLEX file to a 6809 UniFLEX five inch disk 
and it is readable by the MUSTANG-020. The cable is specially 
prepared with internal czevusctions lo match the non-standard 
SWTPC SOP I/O Db25 oavtaion. A special SWTPC S+ cable set 
it also available. Users should ipecify which SWTPC system he/ 
she wishes lo communicate with the MUSTANG-020. The X- 
TA1JC software is furnished on two disks. One eight inch dick 
contains S.E. Media modem piogram C MODEM (6809) and the 
other disk is a MUSTANG-020 five inch disk with C MODEM 
(68020). Text and binaiy files may be directly transferred between 
the two systems. The C MODEM programs are unaltered and 
pei form as excellent modem programs also. X-TALK can be 
purchased with or without the special cable*, bit this facial price is 
available to registered MUSTANG-020 users only. 
XTALK Complete (eobte. 2 disks) $99,95 
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XTAUC Software (2 disks only) $69.95 

X TALK with CMODEM Source $149.95 
XDATA ffxxn S.E. Media - A COMMUNICATION Package for the 
UniFLEX Operating System. Use with CP/M, Miin Frames, other 
UniFLEX System*, etc. Verifies Transmission using checksum or 
CRC; Re -Transmits bad blocks, etc. 

U - $299.99 

EDITORS & WORD PROCESSING 



JUST from S.E. Madia - Text Formatter developed by Ron Anderson; 
for Dot Matrix Printers, piovides many unique features. Output 
-Formatted" Text to the Display. Use the FPRINT.CMD supplied 
for producing multiple copies of the "Formatted" Text on the Pi inter 
INCLUDING IMBEDDED PRIN1ER COMMANDS (very useful 
at oUier time* alio, and woiih the pice of the program by itself)- 
"User Configurable" for adapting u> other Printers (comes set up for 
Epson MX -80 with Grafuax); up to ten (10) imbeddad "Printer 
Control Commands". Compensates for a "'Double Width" printed 
line. Includes the normal line width, margin, indent, paragiaph, 
space, vertical skip lines, page length, page numbering, centering, 
fill, juitificai ion, etc. Uae whh PAT or any other editor. 

* Now supplied as a two disk set: 

Difktl: JUS12CMD object fit*. 

JUST2.TXT PL9 source.FLEX. SICDOS - CC 

Dirk 02: JUSTSC object and source in C: 

FLEX, SK* DOS ~ OS9 -CC 

The JTSC and regular JUST C source are two separate programs. JTSC 
compiles to a version that expects ISC Woid Processor type 
commands, Cpp ,sp .ce etc.) Great for your older text files. 1 he C 
source compiles to a standard syntax JUST.CMD object file. Using 
JUST ryntax (>P .u ,y etc.) With all JUST functions plus seveial 
additional pi inter formatting function*. Reference the JUS15C C 
source. For those wanting an excellent BUDGET PRICED word 
fxoacasor* with features none of the others have. This is itt 

Disk (1) - PL9 FLEX only. F. S <ft CCF - $49.95 
Disk Set (2).F,S*\ CCF & OS9 (C version) - $69.95 
OS.9 68KOOO complete with Source . $79.95 

PAT from S.E. Media - A full feature screen oriented TEXT EDITOR 
wiih all the best of "PIE™". For those who swore by and loved only 
PIE, this is for you I Ail PIE features and much morel Too many 
features to lis. And if you don tlike these, change or add your own. 
PL-9 source furnished. "C source available soon. Easily 
configured to your CRT. wiih special config section. 
Regular FLEX, SK* DOS $129.50 
• SPECIAL INTRODUCTION OFFER • $79.95 
SPECIAL PAT/JVST COMBO (wtsoume) 

FLEX, SK'DOS $99*5 
OS4 6SK Version $229,00 



SPECIAL PAVJUST COMBO 68 K $24900 
Note: JUST in m C m source available for OS-9 

CEDRIC from S.E. Media - A screen oriented TEXT EDHOR with 
availability of 'MENU' aid. Macro definitions, configurable 
peimanent definable MACROS' - all standard features and the 
fastest global" functions in the west. A simple. automatic terminal 
coiiiig program makes this a real no hassel' product. Only 6K in 
size, leaving the average system over 165 sectors for text buffer • 
appx. 14,000 plus of free memoiyt Extra fine for programming as 
well as text 

FLEX. SK*DOS $69.95 

BAS-EDIT from S.E. Media - A TSC BASIC or XB ASIC screen editor. 
Appended to BASIC or XB ASIC, BAS-EDIT is transparent to 
normal B ASIOXBASIC operation. Allows editing while in 
BASIOXBASIC. Supports the following functions; OVERLAY, 
INSERT and DUP LINE. Make aditing BASIC/XBASICpiograms 
SIMPLE1 A GREAT time and eftou saver. Programmers love ill 
NO more retyping entires lines, etc. Complete wiih over 25 
different CRT terminal configuration overlays. 
FLEX, CCF, SK* DOS $39.95 

SCRED1TOR III from Windrush Micro Systems - Poweiful Scran- 
Oriented Editor/Word Processor. Almost 50 different commands; 
over 300 pages of Documentation with Tutorial Features Multi- 
Column display and editing, "decimal align" columns (AND add 
them up automatically), multiple keystroke macros, even/odd page 
headers and footers, imbedded printer control codes, all 
justifications, "help" support, store common command series on 
disk, etc Use supplied "set-ups", or remap the keyboard to your 
needs. Except for proportional printing, this package will DO IT 
ALL! 

6800 or 6809 FLEX, SK*DOS or SSB DOS, OS-9 - $175.00 

SPELLS "Computer Dictionaiy" from S.E. Media - OVER 150,000 
words! Look up a word from within your Editor or Word Processor 
(with the SPH.CMD Utility which operates in the FLEX. SICDOS 
UCS). Or check and update the Text after entry; ADD WORDS to 
the Dictionary. "Flag" questionable words in the Text, "View a woid 
in context" before changing or ignoring, etc SPELLB first checks a 
"Common Word Dictionaiy", ihen the normal Dictionary, then a 
"Pcnonal Word List", and finally, any "Special Word Lisr you may 
have specified. SPELLB also allows the use of Small Disk Storage 
systems. 

F. Sand CCF -$129.95 

STYLO-GRAPH from Great Plains Computer Co. - A full screen 

oriented WORD PROCESSOR - (uses the 51 a 24 Display Screens 
on CoCo FLEX#K»DOS, or PBJ Woidpak). Full screen display 
and editing; supports ihe Daisy Wheel propoitional printers. 



AulUfcllK} I 
Cl>OS-t,£«SK*DOS 
I" - F1XX, U - UelH.EX 
CC* - Cokrr Om>^ OS-* 
CCF • Cottr Computer (OCX 




South "East Media 

5900 CassandraSmith %f. - Mutant Tn. 37343 



fJt-fblTrtcJc—rh rf Mfctirtun it* Molorpt^TlKX tod UntFLEX fcf ■ TTrnfenrk* cf TtTtmfc*) Sjiltw Cnwuit«l6t-*<K*DOS 




•♦ Shipping ♦♦ 

Addl»iJLt.*mifl.lua) 
For*ia* &Kfte* AM 5% 

tfWaa Alrtnill Add it* 

Or COJX Sbtpftae Oatj 



Ktmttwmn triMiCaf^ 



68 Micro Journal 



February '66 



35 



Telephone: (b!5) S42-4bQQ Soittfl 'EdSt tMedid 



•lelcx: 5106006630 
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NEW PRICES 6809 CCF and CCO . $99.95, 

F.Sor O . 1179.95. U - $299.95 
STYLO-SPELL from Great Plains Computer Co. - Fill Compiler 
Dtakawy. Complement* Styiogiaph. 

NEW PRICES 6809 CCF and CCO . 169.95. 

F. Sot 0. $99.95. U. $149 95 
STYLO-MERGE from Great Plains Gvnpaer Co. - Merge Mailing 
1 ut to Tonn" Lcucn, Piini multiple Rfci. etc.. through Stylo. 

NEW PRICES 6809 CCF and CCO . $59.95. 

F,S or 0* $79.95. U - $129.95 
STVLO-PAK ~ Graph + Spell «• Merge Package DeallM 

F.SorO. $129.95, U - $549.95 

0> 68000 $695.00 



MISCELLANEOUS 

TABULA RASA SPREADSHEET from Compiler Systems 

Confulunu - TABULA RASA is similar to DESKTOP/PLAN; 
provide* uic of tabular computation schemes used for analysii of 
business, sales, and economic conditions. Mcnu-diivcn; extensive 
rcporlgeneiition cajsabvl/tie*. Requires TSCs Extended BASIC. 
F, S and CCF. U . $50 DO. wt Source - $1001)0 

DYNACALC - Ekxtronk Spread Sheet for the 6809 and 6800a 
F. S. OS.9 and SPECIAL CCF - S200DO. U . $395 DO 
OS-9 68K$595D0 

FULL SCREEN INVENTORY/MRP from Compiler Systems 
Consultants - Use the Full Screen Invcntoiy System/Matcriali 
Requirement Planning for main laming inventories. Keeps item field 
fde in alphabetical order for easier inquiiy. Locate and/or print 
rccoidi matching paitiai or complete item, desciiption, vendor » or 
attributes; find back order or below slock levels. Print outs in item 
or vnxk* order. MRP capability for the maintenance and analysis 
of Hierarchical assemblies of items in the invcraory file. Requires 
ISCs Extended BASIC. 

F, 5 andCCF, U - $S0D0. wt Source . $/00D0 

FULL SCREEN MAILING LIST from Computer Systems Consultants 
- The Full Scvaen Mailing List System provides a means of 
maintaining simple mailing Lists. Locale all records matching on 
partial or complete name, city, state, zip, or atlribuo for Listings or 
Labels, etc Requires ISCs Extended BASIC. 

F. S and CCF. U - $50 DO. *V Source • $100 DO 

D1ET-TRAC Forecaster from S.E, Media - An XB ASIC program that 
plans a diet in terms 0( either calorie* and percentage of 
carbuhydraics. proteins and fats (C P G%) or grams of 
Carbohydrate, Protein and Fat food exchanges of each of the six 
basic food groups (vegetable, bread, meat, skim milk, fiuil and fat) 
for a spadfic individual. Sex. Age. Height, Preaait Weight. Frame 
Sbe. Activity Level and Basal Metabolic Rate for normal individual 
are taken into aoxxinf . Ideal weight and sustaining calorie* for any 
weight of the above individual are calculated. Provides neanber of 
days and dairy calendar after weight goal and calorie plan is 



determined. 

F.S .$59.95, U- $89.95 

CROSS ASSEMBLERS 



TRUE CROSS ASSEMBLERS from Computer Systems Consultants - 
Support* 1002/5. Z^O. 6800/1/2/3/8/1 1/HCI1. 6804, 6805/IIC05/ 
146805. 6809/00/01, 6502 family. 808075. 8020/1 /2/35/C35/39/ 4QT 
48/C48/49/C49750Y8748/49. 8031/51/8751. and 68000 Systems. 
Assembler and listing formats same as target CPU's format 
Produce* machine independer* Motorola S-TcxL 
68000 or 6809. FLEX, SK'DOS. CCF, OS-9. UniFLEX 
any object or source each - $50 DO 
any 3 object or souree cock - $100 DO 
Set of ALL object S200DO- wisovce $500 DO 

XASM Crow Assemblers for FLEX. SK'DOS from S.E. MEDIA - 
This set of 6800/1/2/3/5/6. 6301, 6502. 80805, and Z80 Cross 
Assemblers use* the familiar TSC Macro Assembler Command Line 
and Source Code format. Assembler options, etc.. in providing code 
for the target CPUs. 

Complete set. FLEX. 5K*DOS only - $150 DO 

CRASMB from LLOYD DO - Supports Motorola's. Intel's, Zilog's, and 
other's CPU syntax for these 8 Bit rfu^TxpcrxcaaDrs: 6800, 6801. 
6303. 6804. 6805. 6809. 6811 (all varieties): 6502. 1802/5. 8048 
family, 8051 family. 808QR5. Z8> 280. and TMS7000 family, 
Has MACROS. Local labels. Label X-REF. label Length to 30 
Char*. Object code formats: Motorola S Rceordi (text). Intel HEX- 
Record* (text), OS9 (binary), and FLEX. SK*DOS (btnaiy). 
Written in AtsembleT ... e.g. Very Fail 

CPU TYPE- Price eacn: 



For MOTOROLA 
FLEX9 $150 

SK'DOS $150 
OS9/6809 $150 

OS9/68K 

CRASMB 16.32 from LLOYD DO 



INTEL 

$150 
$150 
$150 



OTHER COMPLETE SET 
$150 $399 

$150 S399 

$150 S399 

$432 
- Supports Motorola's 68000, and 
has same features as the 8 bit version OS9/68K Object code 
Format allows this cross assembler to be used in developing your 
programs for OS9/68K on your OS9/6809 computer. 
FLEX. 5K 9 DOS. CCF. OS 9/6809 S249.00 

GAMES 

RAPIER - 6809 Chess Program from S.E. Media - Requires FLEX, 
SK*DOS and Displays on Any Type Terminal. Features: Four 
levels of play. Swap side, Point scoring system. Two display 
boards. Change skill level. Solve Checkmate problems in 1-2-3-4 
moves. Make move and swap sides. Play while or black, Thb Is 
one of the strongest CHESS programs running oa any 
Bsdcroctsm outer , estimaud USCF Rating 1600+ (better than most 
ciub' players at higher levels) 
F. Sand CCF S79J95 
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There are no complications for the decoding of LI. as our ftist row (with the help of phl-7) 
covers all available mintenns. and results In the expression : 

LI =y2 

The decoding goes like this. Place *x' under minterm 1. and wrtte 001 to ihe right. "Is 1 * 4 
= 5 available? Yes!" So a 4 Is entered below minterm-5. and bit-4 to the right changed to a 
phi. "Is 1 + 2 = 3 available? Yes!" But before we can mark it ofl' we must first check whether 5 
+ 2 = 7 also is available. MJnteim-7 happens to be a phi. which we can use if we choose, so 
we place a 2 under both minteims 3 and 7 and change bit-2 to a phi. Finally "is 1 - 1 = 
available? No!" So our decoding is complete. We don't start a new row for minteim-4. as its a 
phi. and we don't HAVE to use It. 
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The complete network is shown in Diagram 23. with the networks for each device being 
kept separate for now. As individual networks. weVe produced the minimum expression for 
each, but later on. we'll learn how to "roll up" the separate networks into a combined network 
in order to save even more relay contacts. Youll observe that as the expression for LI is 
simply LI = y2. we could save a single contact by merely connenctJng LI across the coil of Y2. 
so that each time Y2 became energised so also would LI. However, if LI were a heavy-current 
device, and X had only light-duty contacts, we would leave LI to be controlled by Y2. 

HAZARDS 

Up to this point we've assumed that push-buttons have snap-action, such that they 
operate more or less instantaneously on being pressed or released. On this assumption, the 
networks shown in Diagram 23 are quite valid. Taking Y2's network as an example, we see 
that initially Y2 Is de-energised, but if we operate X then Y2 becomes energised (via X and yr). 
thus closing its own contact. y2. In its lower path. If X is now released, and has snap-action. 
Y2 will have its current sustained through this lower path, even though the upper path is now 
open-circuited. BUT. if X does NOT have snap-action, and It's pressed as before, and y2 again 
closes in the lower path. then, if X is released veiy slowly, it's possible to enter an intermediate 
stage where the X upper-contact has opened but the lower X* contact has not yet closed, 
Under these conditions. Y2 may have time to "drop out" instead of staying in as per specs. 



^oQ£i~° o » Q 1 Diagram 2*f- 



This condition is known as a "hazard", and is recognised from the decoding-table by the 
fact that the two rows of the decoding have a valid transition between them, namely a change 
from X T to X. and there is also no "overlap" between mintenns in the decoding- rows, one row 
covering mintenns 1 and 3. and the other minteims 4 and 5. The solution in such a case is to 
try decoding Os instead of Is. That is. to draw up a new decoding table for the decimal num- 
bers 0. 2. 6 and 7. which are now referred to as maxterms (instead of minterms) because well 
be complementing the decodings for each device. 
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For example, if we were decoding Is. the minterm-1 (binary 00 1) would be read asX*yl'y2. 
but the MAXTERM-1 fblnaiy 001) would be read as X + yl ♦ y2\ Everything Is read out In 
reverse when decoding Os and reading maxterms. Basically, we're saying that there IS a In 
the X- position, plus there IS a In the yl -position, but there's NOT a in the y2-positlon. 
Diagram 24 shows a hazard-free network derived from decoding Os Instead of Is. Keep in mind 
that if there are any phis in the minterm decoding-table. they should also be retained in the 
maxterm decoding-table. as a phi may be used as either a 1 or a in order to obtain an opti- 
mum decoding. Sometimes It happens that in the process of eliminating a hazard from the 
minterms. a new one gets created in the maxterms. In such a case. In order to ensure maxi- 
mum reliability of operation of our network, we'd be forced (see Diagram 22 for Y2) to use the 
non-essential row-1 as well to provide the necessary overlap between the other two rows. 

Hazards should ALWAYS be looked for. AND ELIMINATED. In this way. It makes for a more 
reliable circuit even if the push-button, for that matter. IS a fast-operating device. There's no 
guarantee that It won't get a little sluggish as the years roll by?! 

IS THAT UNCLE FRED WE SEE AHEAD? SURELY NOT! 

Ihis is kind of embarrassing for me. as 1 recall telling you at the start of our journey that I 
haven't lost a single soul so far In all my expeditions. Truth WILL out sooner or later. I guess, 
and Uncle Fred has put me in the position of having to confess to you - I lied! Yes. 1 lied, but it 
was only to protect you from being overly nervous during our Journey. 1 didn't want you Jump- 
ing out of your skins every time a little twig snapped, or a bit or byte fell to the ground. Now. 
however. I'm forced to admit that on my previous trip, somehow or other. 1 "mislaid* Uncle 
Fred In this area. Naturally. 1 assumed that the M"bul-yans had got him and we'd never see 
him again. Having got that off my chest, let's go find out out what happened, shall we? 1 hope 
you all foigive me. as my motives for lying were well-meant! 

Well 1 Hello there. Uncle Fred! Where have you been all this time? We were getting a little 
anxious when you got separated from us! Haven't slept a wink since then, worrying about you! 



UNCLE FRED'S STORY 

(Now Uncle Fred's speaking) 1 believe you. though no-one else would! Actually. ive been 
through a most trying time. I'd fallen behind the rest of the gang, as 1 spied an interesting bit- 
position Just off the trail, when BINGO, next thing 1 knew I was gagged, tied hand and foot, and 
slung on a long bamboo pole. Two guys then trotted off into the jungle, with me hanging from 
this pole slung between them. Just like a pig at a barbecue roast. After a while we got to their 
village, where 1 met their rnedlcine-man/chlef. name of 1-asku. He spoke English fairly well, and 
explained to me what was going to happen to me. Seems like they have this custom, going way. 
way. w-a-y back into their past, for disposing of prisoners. Rule 1 is that ALL prisoners MUST be 
taken alive, and taken good care of. These M'bul-yans aren't cannibals, but apparently their 
ancestors are. hence Rule 2. Rule 2 says that no matter how many prisoners they have *in 
stock", one of them is to be selected at random each day at sun-rise, and invited to make a 
statement to I-asku. Any statement, in any language whatsoever! 

Then, during the day. I-asku would examine this statement to decide if it's TRUE or FALSE, 
it doesn't matter whether it's ACTUALLY true or false - only his learned opinion on the matter 
counts. So if you said that men had been to the moon, and he thought that couldn't possibly be 
so. then it was NOT so! Then, at sun-down, if he decided the statement was TRUE, the prisoner 
got thrown to the sacred crocodiles, so that when his soul ascended to the Great Big Never-Never 
Land, the M"bul-yan's ancestors would grab it and eat it. On the other hand, if the statement 
were Judged false, the soul had to be first purified by fire, and so the prisoner got burned alive at 
the stake. Also, if one made statements such as "Michaelangelo had a wart on his rear end!" or 
"There'll be a major war in the year 2020". hoping to delay your death while I-asku does research 
on Michaelangelo. or until 2020 rolls round, the prisoner was obviously a smart-aleck. impure of 
heart, which necessitated purification by ilre before the ancestors could enjoy their little feast. 
Statements in languages foreign to I-asku were also classed as •impure", as such were obviously 
meant to make his analysis difllcult. to say the least. 
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Then they threw me into a compound where I stayed for a few days, listening to the others 
being taken out, one each day. followed at night by either a splash and a quick, short scream, or 
the crackling of flames and long-drawn-out groans going on for the longest while. In the end. ev- 
eryone decided they would rather have a quick death, and planned statements such as "Grass is 
green", "2 ♦ 2 = 4*, "You nice guy, I-asku". and so on. Same with me! Then one day, I remem- 
bered your saying that If only one could map a logic- problem, the problem was automatically 
solved at the same time. I didn't really see how this could help me, but I scratched a little K-map 
In the dust, and entered Is and Os to describe my situation. And sure enough! There was the 
answer staring me in the face. 

Just by chance, they selected me the next morning, so when l-asku stood In front of me. he 
said "Ah, you famous Uncle Fred! You mebbe happy know Aunt Minnie also happy inherit you 
95 dollar. Now she have 194 dollar. Make statement please!" So I made the statement extracted 
from the K-map. At first he didn't say much. Then he went into a sort of spiritual dance, asking 
for guidance from his ancestors. Then he came back to me. and said "I. l-asku, I tell you." - (This 
I-asku has quite a sense of humour!) - "You one smart cookie. Uncle Fred!" and asked if I'd 
prefer to make a different statement perhaps. He explained that this situation had never, ever, 
occurred before (and as he was forbidden by the rules to kill me in any other way, otherwise 
tenible disaster would fall on the tribe) he was In a tight spot. Would I like to reconsider? Other- 
wise he'd have no alternative but to return me to where I'd got "picked up", and then set me free. 
Naturally. 1 declined his kind oirer to reconsider, so at sundown a few days ago they dropped me 
ofr back here on the trail. And here I've been ever since, waiting for you to turn up. 

I guess you're all anxious to know what 1 told I-asku. Well 

(Interruption by me!) Hold on there. Uncle Fred! Don't make It too easy for my gang. Let them 
think it over for a while themselves, and try to figure out what THEY would have said. Better 
still, try to figure It out from a K-map. How about It. fellas? Uncle Fred will give the solution 
later. Summarising, only two forms of death allowed - crocodiles if the satement is true (in I- 
asku's opinion), otherwise burned at the stake if false, undecipherable, sneaky, smart-alecky, or 
otherwise "impure of heart". Yet Uncle Fred figured out how to avoid either death. What did he 
tell l-asku? And how did he figure it out? 

When you've sorted THAT out, we'll proceed to 

TEST SEVEN 

Design the following circuits : 

1. Light LI to come ON when X is pressed, and go OFF when X released. 

2. As above, except that the current for LI must NOT How through X. This means that 
any horizontal movement through the flow-table must NOr produce a change In the state of 
LI. Such a change can only occur via Relay-action, that Is. when movement takes place 
vertically in the table. 

3. LI to come ON when X is pressed, and stay ON thereafter, even when X is released. 

4. LI is OFF initially. When X is pressed it stays OFF. but comes ON when X is released, 
thereafter going OFF each time X is pressed, and coming ON again each time it's released. 

5. Two lights, LI and L2. LI to come ON when X is pressed, and to go OFF when X is re- 
leased. When X is pressed again. L2 is to come ON, and go OFF when X is released. Subse- 
quent operations of X to repeat this pattern of alternating L 1 and L2. 

6. As In 5 above, except that after X is pressed and released for the second time, subse- 
quent operations of X merely repeat that of the second. That is. L2 comes ON each time X is 
pressed, and goes OFF each time X is released. 

7. LI to come ON when X is pressed the first time, and to stay ON thereafter, L2 to come 
ON when X is operated for the second time, and stay ON thereafter. 
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8- Lights initially OFF. When X is first pressed. L 1 is to Hash ON and OFF continuously. 
If X Is released at the moment when LI is OFF. the circuit is to return to Its initial state, but if 
LI happens to be ON. the circuit is to switch to a state where LI goes OFF. but if X Is now 
pressed again L2 will flash ON and OFF continuously. Now. if X Is released when L2 is OFF 
the circuit goes back to Its PREVIOUS state, ie. where LI and L2 are OFF. but waiting for L2 
to Hash if X is pressed again. However, if X Is released at the moment L2 Is ON the circuit is 
to return to Its INITIAL state. HINT : When two-way action occurs between two boxes in a 
State-Diagram, the line connecting these two boxes has an arrow-head at both ends to indi- 
cate this, 

9. As in 8 above, except that if X is released when L2 happens to be ON. it stays ON. and 
resumes flashing when X Is re-pressed, 

10. As In 8. except that if L2 is ON when X is released. It goes OFF and LI comes ON. LI 
goes OFF and L2 resumes flashing if X Is re-operated. 

Yep. 1 know. This is quite a pile of problems, but don't forget - you didn't have any at all at 
Mile 6. Some may appear iather frightening when you first read them, but If you Just take 
your time you 11 find that as you enter the action on the flow-table, they're not so bad after all. 
Don't worry if you can't do them all. Just take It steady, and try again in a few days time. 
Even though you can probably draw the low-numbered circuits directly from the specs. I'd 
still like you to go through the whole design process. This will not only give you lots of prac- 
tice, but will also seive to satisfy you that the circuits do. In fact, turn out the way you would 
otherwise have designed them. 

So here we are at Mile 7. looking down the road towards Mile 8. During this next stage, 
we'll refine our design technique somewhat with a more complicated example. Just think! 
Who'd have thought a few short miles back that we'd be designing tricky little circuits like 
ihose above quite so soon? And the higher-numbered problems ARE tricky - even for sea- 
soned seat-of-the-pants designers. With our admittedly unrefined technique to date, however, 
they should fairly easily come together to produce a workable circuit the very first time. 
So. I'm Just going off to one side for a little chat with Uncle Fred, as we're past M'bul-yan 

territory now. and quite safe. At least 1 don't have to lie any more about not losing anyone. 

though 1 bet Aunt Minnie won't enjoy having to return Uncle Fred's 95 dollars - unless she's 

spent It already! See you later. 

EOF 
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A Tutorial Series 



By: R. D. Lurie 

9 Linda Street 



CALLING ROM ROUTINES FROM FORTH 



Often, it would be very convenient to use ROM code 
as a subroutine called by a FORTH program. However, 
it is not always so obvious just how one should go about 
doing it! In this installment, I want to illustrate one 
way to do just that. 

The main point to verify when considering calling 
a ROM routine is to make sure that it will not cause a 
problem with FORTH. Not only do you have to make 
sure that the routine does not do anything harmful to 
the RAM occupied by FORTH, but also that it does not 
permanently change any of the registers used by 
FORTH as pointers. All of the 680x FORTH's that I 
know of allow free use of the X register and the A and 
B accumulators, but the Y, U, and S registers must be 
restored when returning to FORTH. This really means 
that a routine written for the 6800 would probably not 
cause any problems, but one written for the 6809 might 
use the Y or U registers without restoring them, and 
this would be disastrous. 

If you must use Y or U, I suggest the following 
outline for the calling definition: 



CALLER 
Stack 



LDA 1,U 

PSHS 
JSR 
PULS 
LEAU 



load into A from lsb of Data 

Y,U save Y and U 

ROM jurrp to ROM routine 

Y, U recover Y and U 

2,U the DROP operation 



Figure I. A suggested outline, in standard Motorola 
infix notation, for calling a ROM routine. 



You can modify this as necessary to fit your re- 
quirements. The definition in Screen #2 isin the postfix 
notation normally required by a FORTH assembler. 



A SPECIFIC EXAMPLE 

First, some background — many people think that 
the use of hardware math ic's is a relatively new idea, 
just invented by Intel and/or IBM. Of course, like many 
other things that "everybody knows", that is just not 
true. I have one of the CAI/C- 1 S-30 bus math boards 
which was produced by SWTP nearly 10 years ago, and 
I am still using it! I got it originally for use with 6800 
Assembly language programs. The CALC-1 uses a 
National Semiconductor MM57109 calculator chip, 
which they had developed to go with their COPS 
system. I suspect that the MM57109 is no longer 
available, except on the surplus market It is rather 
slow when compared to the more recent math ic's, since 
it works at about 400-500 KHz. However, it is fast 
enough for most hobby applications; although, I would 
expect speed problems with calculations for animated 
graphics. 

About the only important fault of the CAIX2-1 was 
that I could never find a direct way to enter negative 
exponents. There may be a way to do so, and I would 
appreciate any information that anyone may have on 
this. I enter the negative exponent as a 5- step opera- 
tion: 

1. Enter the exponent as 1 to the positive exponent 

value. 

2. Take the reciprocal (1/X). 

3. Enter the number as a positive, floating-point 

value. 

4. Multiply the resulting two numbers. 

5. Change the sign, if necessary. 

This is not very elegant, but it does work. 

At this point, you are probably wondering why I am 
wasting your time talking about an obsolete math 
board. The reason is that even though the math board 
maybe obsolete, the techniques for talking to it are not! 
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THE ROM ROUTINE 

I should explain at this time that I am using a GMX 
6809+ CPU which has RAM available at $E700, so I 
often use this address page for development of software 
which I later expect to transfer to ROM. I also use this 
page for scratchpad RAM, as necessary. I have in- 
stalled the MCALC-1 software at $E71C, with its 
required RAM starting at $E7F1. I will put the 
MCALC-1 software, which I call FCALC, into EPROM 
when I am finally satisfied with it. I now load the $E700 
block of software with my FLEX STARTUP.TXT file. 

The FCALC listing shown is the version I presently 
use, except for the first two lines at the lable, "CALCO*. 
Since not everyone will have the $E700 page of RAM 
available, I have included the ROM listing in the form 
necessary for use in the RAM just below FLEX. As you 
can see, I have set the ORG lable to $B800 to allow 
plenty of room for any modifications you may wish to 
make. I have written the ROM routine so that it can be 
called from any program, not just one written in 
FORTH. The program is position- independent, except 
for the external references. Notice that I have used 
extended addressing for the CALC-1 addresses. This 
could present a problem if I ever want to move the 
CALC-1 board, but I don'tknow why I might do that, so 
I have not worried about it. The RAM references have 
to be to fixed addresses simply so that they can be 
referenced by the calling programs. If you use this 
routine, and later transfer it to ROM, be sure that you 
leave the variables and buffer in RAM! 

If you want to use this routine with a Pascal 
program, you might have some difficulty with access- 
ing the RAM addresses, because of the problems inher- 
ent in Pascal, but I will leave that up to anyone who 
might be that interested in a particular application. 

The only register I used for indexed addressing is 
the X register, because that is normally the only one 
free in 6809 FORTH's. You will have to make a few 
minor changes in the routine for use with the 6800, 
since I took advantage of the D accumulator on several 
occasions; but splitting the D into separate A and B is 
all that is required. 



THE FORTH PROGRAM 

The actual FORTH program which I use is shown 
in screens #2-#10. Screen #1 is simply the loading 
screen, and screen #12 is a diagnostic and debugging 
aid. You probably will only want to load SHOW while 
you are developing a program, but not for the final 
application. 

Screen #11 is necessary only for testing FCALC 
and using it as a desk-calculator. DATA simply pro- 
vides a way to enter keyboard data, and, normally, is 
not used when calling FCALC from a FORTH program. 
Later, I will show what I think is a much better way to 
enter a large quantity of data into a number-crunching 
program. 

Line #2 of screen #11 simply creates the entry 
buffer and provides the necessary starting address for 
use by ©INPUT . There is no real need for an 80- 
character buffer, but I have let that become a habit. 
One of these days, it will probably get me into trouble, 
but such a large buffer does no harm if there is enough 
RAM to allow it 

Lines #5-6 simply clear PADl and accept up to 80 
characters, or less, if terminated by the usual <CR>. 
Note that there is no error protection, here, as DATAis 
not intended to be a permanent part of a program. If 
you want to use FCALC as a desk-calculator, you don't 
expect much error protection, anyway; but go ahead 
and add it, here, if you want it. 

Line #7 puts the address of PAD 1 on the Data Stack 
for use by ©INPUT and then calls that word for the 
actual data entry. 

Line #8 is necessary in order to tidy the Data Stack, 
since ©INPUT returns the address of (the last digit 
entered + 1). This address is not used by DATA, so it 
must be removed from the Data Stack. 

The real meat of the program starts with ©INPUT 
in screen #10, which is the primary point of data entry. 

©INPUT must be entered with the address of the 
inputASCIIstringalready on the Data Stack. By doing 
this, we can use any source we wish for the input 
without having to worry about putting all kinds of error 
protection, etc. into ©INPUT . As we go along, process- 
ing the input string, we will be maintaining a count on 
the Data Stack. This count is initialized to in line #1. 

The data string is read by means of a BEGIN ... 
UNTIL loop containing an IF ... ELSE ... THEN condi- 
tional construct which does the work of the definition 
and also sets the flag used to escape the loop after the 
last character has been read. 
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In line #3, 2DUP is used to make a copy of the 
starting address of the string and the current value of 
the counter. The sum of these two numbers acts as a 
pointer to the next character to be read. Since the string 
has the form of a "packed string", that is, one byte per 
character, the C@ byte-read form must be used to fetch 
the character to the Data Stack. 

The character now on top of the Data Stack serves 
two potential functions; it is used as a flag to determine 
the end of the string, and it is used as the input value 
ifitis notthe input stringterminator. Therefore, in line 
#4, DUP is used to make a copy of the character for use 
as the flag. The character is first compared to BL ($32). 
OVER is used to make a second copy of the character, 
without disturbing the Boolean result of the first 
comparison. The copy is now compared to 0, and OR is 
usedto a add* the two Boolean flags. It is this sum which 
becomes the flag for the IF ... ELSE ... THEN condi- 
tional. By using the Boolean sum of the comparison 
with BL and 0, we can clear the input buffer either with 
BLANK ( BLANKS in FIG-FORTH) or with ERASE . 
This makes the ©INPUT definition much more gen- 
eral. 

The flag generated by the OR is TRUE (non-zero) 
if the last character obtained from the string was either 
a space or a zero ($20 or $00). Any thing else would be 
interpreted, at this point, as a valid character. 

If the flag were TRUE , then the IF part of the 
conditional would be executed. In that situation, line 
#5 would DROP the extra copy ofthe character from the 
Data Stack. The current value ofthe count would then 
be added to the original string pointer and the resulting 
sum would be incremented by one ( 1+ ) to point past the 
terminating character. The purpose of this will be 
discussed later. 

Line #7 then places a TRUE flag on top ofthe Data 
Stack in order to force the end ofthe BEGIN ... UNTIL 
loop. 

If the flag generated in line #4 had been FALSE , 
then the ELSE portion ofthe conditional would have 
been executed. The first action would have been a jump 
to the SCREEN-INPUT definition, which processes 
correct input, or signals an error situation and causes 
an ABORT upon receipt of invalid data. If the data 
couldbe processed properly by SCREEN-INPUT , then 
the count on top of the Data Stack is incremented by 
one ( 1+ ), but not added to the original address at this 
time. Line #10 then places a FALSE flag on the top of 
the Data Stack in order to force the BEGIN ... UNTIL 
loop to search for the next character ofthe input string. 



Once the entire stringhas been processed, lines #2- 
12, the ENTER definition is called (screen #4) in line 
#13. 

The last action of ©INPUT is to set the sign ofthe 
entry, based upon the value stored in ^MINUS-FLAG 
. _MINUS-FLAG will have been conditioned by 
SCREEN-INPUT , so that ©INPUT only has to read its 
value in line #14, and use that value as the BOOLEAN 
flag for line #15. If the flag had been TRUE (non-zero), 
then CHANGE-SIGN (screen #4) would be executed 
and _MINUS-FLAG would be set FALSE ( ), in 
preparation for the next use of ©INPUT . 

SCREEN-INPUT is one of those classic situations 
just crying for the CASE ... ENDCASE structure. Its 
purpose is to screen the incommingdata from ©INPUT 
and take appropriate action, based on the characteris- 
tics of each item of input. The first action of SCREEN- 
INPUT is DUP , because the CASE ... ENDCASE 
structure executes a DROP of the input character, 
which we cannot prevent, and we need to use this 
character in lines #3 and #5. 

Line #3 checks the input character for an ASCII 
value ranging within the values of$30 and $39. If the 
character has this value, the ASCII value for ($30) is 
subtracted from it, and CALC (screen #3) is called, 
CALC is the definition which calls the ROM routine. 

A decimal point is processed in line #4. The DROP 
eliminates the excess copy on the Data Stack and then 
calls DECIMAL-POINT (screen #4), which does the 
actual work. 

Line #5 processes a minus sign which indicates a 
negative number. This program cannot process nega- 
tive exponents; refer to the previous discussion for the 
reason. In this context, the minus sign only denotes a 
negative number, and not a subtraction operation. The 
minus can be anywhere within the string, including 
between two digits, and it will still function to denote 
a negative number. I don't know if I have tried all ofthe 
possible combinations, but I think that one or more 
minus signs anywhere within the string will act as if 
only one minus sign had been positioned as the leading 
character ofthe string. 

A plus sign has no real value in this context, bo it is 
simply cast aside with a DROP in line #6. The plus sign 
can appear in the input without doing any harm, but it 
serves no actual function. However, it is sometimes 
convenient to use the plus sign as part ofthe input, and 
it might also be used accidentally, so we want to be sure 
that its innocous use would not cause the whole pro- 
gram to crash, unnecessarily! 
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The letter E, either upper or lower case, signals the 
beginning of the exponent. The DROP clears the Data 
Stack and ENTER-EXPONENT (screen #4) takes the 
appropriate action. 

These are the only acceptable inputs, and any other 
character causes a fatal error. In line #9, the input 
error is signaled and ABORT closes down the opera- 
tion. 

At the risk of boring those of you who do not have 
a C ALC- 1 math board, 1 want to describe howl read the 
output, since the principles should apply to any other 
math output, even one based entirely on software. 

Screens #6-8 process the output from the CALC-1 
math board. These are simply a translation of the 
OUTCHR, etc. routines from the original SWTP 6800 
machine code into a convenient FORTH structure. 

The .ANSWER definition is a good example of 
factoringa definition in order to make it easier to read, 
write, and later understand. The word FORMAT in 
line #1 of screen #8 actually refers to a variable used by 
the ROM routine. Since it is a single-byte variable, it 
must be read with C@ . As I am sure you have noticed, 
I have adopted the convention of using _ (underline, 
$5F) as a prefix for any VARIABLE . However, I have 
not settled on just what to do with variables which are 
only one byte long and/or part of the system or ROM, 
rather than part of the FORTH program, proper. The 
mnemonically represents a space to be filled, so 
whenever I see a word with the_ prefix, I don't have to 
look it up to know that it is a variable. 

FORMAT contains $FF if the CALC-1 output is in 
scientific notation or $00 if the output is in floating 
point. Therefore, the simple IF ... ELSE ... THEN 
construct is all that is needed by this definition. 

FP-NOTATION takes its input from the string of 
data in the *MCALC buffer. The * is another prefix 
which I have recently started to use; in this case, I use 
it to denote some sort of array. As with FORMAT , 
*MCALCis actually filtedby the ROM program and not 
the FORTH program. *MCALC corresponds to 
BUFFER at $E7F4. 1 confess that I am not completely 
consistant with using my own naming conventions, but 
I expect to work that out as I go along. 

The first action of FP-NOTATION is to read read 
the first byte of output and determine if it is a positive 
or negative number. The number is negative if the 
fourth bit is set; therefore, the phrase 8 AND will 
produce a TRUE for negative numbers and a FALSE 
for positive numbers. Line #1 makes this check and line 
#2 displays the minus, if appropriate. 



The second byte contains the location of the deci- 
mal point, although it is not as easy to read as the sign 
of the number. Line #3 first reads the byte and then 
performs the Boolean AND with $0F in order to remove 
the upper four bits. The resulting number is then 
subtracted from $0D by the phrase 13 SWAP - . The 
result is the position of the decimal point, counting 
from left to right; this value is stored in _DP-POS . 

Since the output from CALC-1 is a maximum of 
eight digits, plus the decimal, the digits may be found 
in the second through the tenth position of the 
*MCALC array. The digits are stored as conventional 
ASCII, so they may be displayed as they are read. The 
only catch is in showing the decimal point in the proper 
location. I thought that the easiest way was with a DO 
... LOOP . By setting the loop limits at 2 and 10, 1 could 
simply add the loop counter I (line #5) to the start of the 
array and immediately have a pointer to the current 
digit. Furthermore, by comparing I to the contents of 
_DP-POS , I would know when to display the decimal 
point (lines #5-6). 

SCI-NOTATION is more complicated than FP- 
NOTATION, because we also have to be concerned 
about the exponent, both its magnitude and its sign. As 
it happens, the significant byte locations are also more 
scattered for scientific notation than for floating point 
notation, so we must skip around a little in order to be 
able to read the output. This is no big deal, it just 
confuses the eye a little when one first tries to under- 
stand the SCI-NOTATION definition. 

As with FP-NOTATION, the first thing to display 
is the sign of the number, which is done in lines #1-2 of 
screen #6. This time, the sign is stored in the fourth bit 
of the third byte of *MCALC , and its recovery is 
analogous to FP-NOTATION . 

The number in scientific notation is usually repre- 
sented as a single digit, a decimal point, and as many 
following significant digits as appropriate. Therefore, 
since the first digit is to be found in the fifth byte of 
"MCALC , we only need to display it, and follow it, 
automatically, by a decimal point (lines #3-4). 

Since there are normally seven digits following the 
decimal point, a DO ... LOOP , indexed by 5 and 12 can 
be used to display them (lines #5-7). I chose a more 
general way to fetch the digits, this time, as compared 
to the FP-NOTATION definition. Here, I have masked 
the fetched byte with $0Fand then added the result to 
the value of ASCII 0. This was then used as the 
argument for EMIT . Actually, the form used in FP- 
NOTATION is completely adequate, and can be used 
here, with a concomitant saving in RAM and time; I 
just used one form in each definition to illustrate a 
point. 
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Line #8 displays the "E" required to signify the 
exponent to base 10. 1 included a space ahead of the a E" 
in order to make the output easier to read. 

The sign of the exponent must be printed next, and 
it is found in the first bit of the third byte of *MCALC 
. Lines #9-10 read and display it. The phrase 1 AND 
isolates the bit, which is then used as the Boolean flag 
for the following IF ... THEN conditional. 

The magnitude of the exponent is read and dis- 
played by lines #14- 15 as taken from the first and 
second bytes of the *MCALC buffer. 

Screens #4 and #5 contain the commands which are 
used to control the MM57109 calculator. The format 
was chosen simply to make the screens easier to read. 
If you have one of the CALC-1 boards, you should have 
no trouble figuring out how to use all of the definitions. 

Those of you who don't have one, will only be 
interested in the algorithm. I will make the explana- 
tion a little easier to follow by treating the case of a desk 
calculator. Remember, the MM57109 uses RPN input, 
so it is much easier to program than some other 
beasties. Suppose you want to take the square root of 
the sum of 37.123 and .0051. The following command 
sequence would be used: 



DATA<CR> 37.123<CR> ok 
DATA<CR> .0051<CR> o* 

PLUS<SP>SQUARE-ROOT<SP> . ANSWER<CR> 6 . 
ok 



0932832 



As soon as <CR> or <SP> is pressed, the word 
CALC in screen #3 is called. The number preceeding 
CALC in each of the definitions in screens #4-5 is the 
proper command to the MM57109, and it is placed on 
the top of the Data Stack just prior to calling CALC . 

CALC is written in Assembly language, using the 
FORTH-style postfix notation. I just don't know of a 
way to jump to a ROM subroutine from high-level 
FORTH, unless your version has a word such as JSR . 
Since most don't, I assume that you will do as I have 
done. 

The first step (line #1), is to move the least signifi- 
cant byte from the top 16-bit word on the Data Stack 
into Accumulator A. This is easy with most 6809 
versionsof FORTH, since the U register is usually used 
as the Data Stack pointer. If your FORTH uses a 
different pointer, I will have to leave that up to you; but 
the instruction manual should tell you where to find 
the required pointer. 



Line #2 is the obvious extended jump to the ROM 
subroutine. Remember that any ROM address must be 
an absolute address, since you have no way of knowing 
the relative position of CALC within RAM from compi- 
lation to compilation. 

In this particular application, you must remove the 
top word from the Data Stack before going to the next 
definition; otherwise, we would quickly fill the Data 
Stack with garbage. Therefore, line #3 simply executes 
the Assembly language form of DROP . 

Screen #2 contains the three variables used by 
FORTH, but not by ROM. However, it also has two 
CONSTANT definitions, FORMAT and *MCALC , 
which act as pointers to a variable and an array used 
both by FORTH and by ROM. There are also three 
CONSTANT definitions which are pointers to the 
entry address for each of the three ROM routines, 
FCALC, OUTANS, and INITAL. These pointers were 
all defined as HEX simply for my convenience, FORTH 
couldn't care less! 

The only time you need the INITAL pointer is when 
the routine is called the first time. INITAL initializes 
the 6820 PIA interface, and is never called after that. 
When I finally do put FCALC into ROM, I will either 
have to initialize the PIA interface at startup (the 
preferred action) or include the simple definition in 
Figure 2 as one of the first actions of my math initiali- 
zation. 

CODE INITIfcLIZE-CALC-1 
INITAL JSR 
NEXT, 
END-CODE 

Figure 2. A method for initializing the CALC- 
1 interface directly from FORTH. 

EASY DATA ENTRY 

Earlier, I mentioned that I had found what I be- 
lieve is an easy method for data entry into a number- 
crunching program. Screen #101 shows the idea; 
namely, simply use any convenient editor to enter the 
input data as an ASCII screen file, which is then read 
by the FORTH program as it asks for input. 

Either line #0 can be used for a title, etc., or it can 
be used for data, if you need the space. Here, I show it 
used for a title, just to emphasize the point. 

Whatever you decide to put on the first line, the 
first data item should be the count of the items to be 
read, In that way, you can read the rest of the input 
with a simple DO ... LOOP . 
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All you need to do to read the count is to use the 
phrase: 

101 BLOCK 63 + NUMBER DROP 

In this phrase, 101 BLOCK points to the start of the 
screen, and 63 + adds the necessary offset for the use of 
NUMBER . The DROP is needed, because NUMBER 
produces a 32-bit result, and we only want a 16-bit 
integer to use in a DO ... LOOP. 

The actual data can be read from the block by 
following the outline of FORTH commands in Figure 3: 

101 BLOCK 128 ♦ \ point to first digit 

( count ) DO \ reading loop limits 

( adr ) 6 INPUT \ read the input data 

( appropriate calculator cotmwnds ) 
LOOP 

DROP \ discard last copy of 

\ pointer 

Figure 3. Outline of the FORTH comrends for 
reading input data f ran a "data screen" . 

If you refer to the definition of ©INPUT (screen 
#10), you will find that I left an address on the Data 
Stack which was a pointer to the byte after the termi- 
nating byte. This becomes the address pointer to the 
next input for ©INPUT , if you put only one space 
between consecutive numbers in your input screen. In 
other words, the first call to ©INPUT must specify the 
starting address for the reading, but subsequent calls 
would not, because the address would already be on the 
Data Stack. Of course, you must enter the numbers 
onto the original "data screen" without any breaks, or 
you will have to respecify the starting address of the 
nextbyte of valid input. 

If this explanation is not adequate for you to see my 
point, wait for the next installment, which will go into 
this in more detail, with specific examples. 

SOURCES FOR FF9 AND FF2 

If you still don't have PF9 or PP2, and I cannot 
imagine why you would not, you can still get a free copy . 
Send a stamped, self- addressed mailer with two disks 
to: 

Wilson Federici 
1208 NW Grant 
Corvallis, OR 97330 

Be sure to tell him whether you want FF9 for the 
6809 or FF2 for the 6800. If you prefer, you can get FF9 
from me (I don't have 6800 FLEX), but you will get 
quicker service from Wilson. 



Come on, you can't find a better version of FORTH- 
83, and you sure can't beat the price. 



SCR 41 

\ loading screen 
\ RDL 09/02/87 

1 

2 : MC 

3 2 10 THRU ; 
4 

5 CR MC 



SCR 





12 



\ CONSTANT*, etc 
RDL 09/01/87 
1 

FORTH DEFINITIONS 



HEX 
E71C CONSTANT FCAIC 
E7B4 CONSTANT INITAL 
E7F1 CONSTANT FORMAT 

8 E7F4 CONSTANT *MCALC 

9 DECIMAL 
10 

11 VARIABLE _DP-P0S 

12 VARIABLE _MINUS-FI*G 

SCR #3 

CODE CALC ( b - ) 
\ RDL 09/01/87 

1 1 .0 IDA 
fetch byte from stack 



2 PCALC 

3 2 ,U 
input byte 

4 

5 END-CODE 



JSR 
LEAU 

NEXT, 



\ DROP 



SCR #4 

\ Control codes 
\ RDL 09/01/87 

2 : DECIhftL-POINT 10 CALC 
EXPONENT 11 CALC ; 

3 : CHANGE-SIGN 12 CALC 
13 CALC ; 

4 : SMDC 24 CALC 
27 CALC ; 

5 : >MEM 28 CALC 
29 CALC ; 

6 : ARC 32 CALC 
33 CALC ; 

7 : TOGGIZ-MODE 34 CAIC 
35 CALC ; 

8 : SINE 36 CALC 
37 CAIC ; 

9 ; TANGQfT 38 CALC 
44 CALC ; 

10 : DEORAD 45 CALC 

47 CALC 
11 
MINUS-FIAG < f 



ENFER- 
PI 

XXM 
MEK> 
ENTER 
ROLL-STACK 
COSINE 
RAD>DEG 
CIZAR-CALC 
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12 : XXY 48 CALC ; : E**X 


1 DUP 


49 CALC ; 


2 CASE 




3 ASCII ASCII 9 RNG-OF ASCII - 


SCR #5 


CAIC ENDOF 


\ Control codes 


4 ASCII OF DROP DECIMAL-POINT 


\ RDL 08/31/87 


ENDCF 


2 : 10**X 50 CALC ; : SQUARE 


5 ASCII - OF _MINUS-FIAG ! 


51 CAIC ; 


ENDCF 


3 : SQUARE-ROOT 52 CALC ; : LM 


6 ASCII + OF DROP 


53 CALC ; 


ENDCF 


4 : LOG 54 CALC ; ; 1/X 


7 ASCII E OF DROP EKTER-EXPONENT 


55 CAIC ; 


ENDOF 


5 : Y**X 56 CALC ; s PI*JS 


8 ASCII e OF DROP ENTQ*-EXPONENT 


57 CALC ; 


ENDOF 


6 : MINUS 58 CALC ; ; TIMES 


9 CR ." ***INP(7r ERROR***" CR ABORT 


59 CALC ; 


10 ENDCASE ; 


7 : DIVIDE 60 CALC ; : POP 




46 CALC ; 


SCR #10 




: G INPUT { adrl - adr2 ) 


SCR 16 


\ RDL 09/01/87 


: SCI-NOTATION ( - ) 


1 \ 


\ RDL 08/27/87 


initialize "count" 


1 *MCALC 2+ eg 8 AND 


2 BEGIN 


2 IF ASCII - EKIT THEN 


3 ( adr > ( count ) 2DUP + C8 


3 *MCALC 4 + eg 15 AND ASCII 


4 DUP BL - OVER O- OR 


+ EMIT 


5 IF DROP 


4 ASCII EMIT 


6 ( adr ) { count ) -1- 1+ 


5 12 5 DO 


7 TRUE 


6 *MCALC I + eg 15 AND ASCII 


8 ELSE SCREEN-INPUT 


+ EMIT 


9 ( a<ir ) ( count ) 1+ 


7 LOOP 


10 FALSE 


8 ." E" 


11 THEN 


9 *MCALC 2+ eg 1 AND 


12 UOTIL 


10 IF ASCII - EKIT THEN 


13 ENTER 


11 *MCALC eg 15 AND ASCII + 


14 _MINUS-FIAG @ 


EMIT 


15 IF CHANGE-SIGN JilNUS-FIAG » 


12 *MCALC 1+ eg 15 AND ASCII + 


THEN ; 


EMIT ; 






SCR #11 


SCR 17 


\ PAD1 DATA 


: FP-NOTATION ( - ) 


\ RDL 08/30/87 


\ RDL 08/27/87 


1 


1 *MCALC eg 8 AND 


2 CREATE PAD1 80 ALLOT 


2 IF ASCII - EMIT THEN 


\ RDL 08/30/87 


3 *MCALC 1+ C0 15 AND 13 SWAP - 


3 


_DP-POS ! 


4 : DATA { - ) 


~ 4 10 2 DO 


\ RDL 08/30/87 


5 *MCALC I + eg EMIT 


5 PAD1 80 ERAS 


6 _DP-PGS @ I - 


6 PAD1 80 EXPECT 


7 IF ASCII . EMIT THEN 


7 PAD1 @ INPUT 


8 LOOP ; 


8 < adr2 ) DROP ; 


SCR #8 


SCR #12 


: .ANSWER ( - ) 


: SHOW ( - ) 


\ RDL 09/01/87 


\ RDL 09/02/87 


1 FORMAT 08 


1 CR ." X- * .ANSWER 


2 IF SCI-NOTATION 


2 ROIX-STACK 


3 EI.SE FP-NOTATION 


3 CR ." Y- * .ANSWER 


4 THEN ; 


4 ROIX-STACK 




5 CR .» Z- « .ANSWER 


SCR 19 


6 ROIJ^STACK 


: SCREEN-INPUT ( c - ) 


7 CR ." T- w .ANSWER 


\ RDL 09/01/87 


8 ROLL-STACK 
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9 


XXM 


10 


CR 


11 


XXM 


12 


CR ; 



^ 



.ANSWER 



SCR #101 

\ DATA 

\ RDL 09/01/87 

1 32 

2 5500 5500 5500 5500 5200 5200 5200 5200 5000 
5000 5000 4800 4700 

3 5000 4600 4800 4500 4400 4700 4700 4600 4400 
4600 4600 4500 450 

4 4500 4500 4700 4800 4800 4800 



EOF 



08/26/87 



C100 

C100 8E B7FF 

CI 03 BF CC2B 
MEND 

C106 BD B898 

C109 7E CD03 
WARMS 



* F-CAIC ver 1.0 

********************************** 

ORG $C100 

CAICO I.DX #$B7FF 

STX $CC2B ME- 

JSR INITAL 

JMP $CD03 



********************************************* 

* EXTERNAL REFERENCES 

********************************************* 



E060 PORT60 EQU $E060 

E061 PORT61 EQU $E061 

E062 PORT62 EQU $E062 

E063 PORT63 EQU $E063 

******************************************** 

* ENTRANCE POINT FOR 

SUBROUTINE VERSION 

******************************************** 



B800 



ORG $B800 



******************************************** 

* PROCESS "ENTER" 

******************************************** 

B800 81 21 PCALC CMPA #$21 

B802 27 45 HEQ 2ERMEM 

******************************************** 

* MOVE " INSTRUCTION" TO 



PORT 



B809 B7 


E060 


STA 


PORT60 


B80C F6 


E060 


LDB 


PORT60 


B80F C6 


3C 


LDB 


#$3C 


B811 F7 


E061 


STB 


PORT61 


B814 F6 


E061 OUTIN6 LDB 


PORT61 


B817 ZA 


FB 


BPL 


OUTIN6 


B819 F6 


E060 


LDB 


PORT60 


B81C C6 


36 


LDB 


#$36 


B81E F7 


E061 


STB 


PORT61 



************ 



********************************* 
SCREEN FOR "IMMEDIATE - 



ACTION" COMMANDS 



********************************************* 



B821 81 2F 

B823 26 03 

B825 7F B8A8 

B828 7D B8A9 

B82B 26 1C 



"MASTER CLEAR" 



MCLEAR CMPA #$2F 

BNE MCIEA3 

CIJ* FORMAT 

MCLEA3 TST SMDC 

BNE ZER1«H 



************** 



******************************* 
* "HALT" ( EQUIVALENT TO 



NOP ) 



********************************************* 



B82D 81 OF 
B82F 27 66 



CMPA #$F 
BEQ EXIT 



"SET MANTISSA DIGIT 



COUNT " 



B831 81 18 

B833 26 05 

B835 73 B8A9 

B838 20 5D 



CMPA #$18 

BNE INVER 

COM SMDC 

BRA EXIT 



******************************************** 

* "INVERSE MODE" 

******************************************** 



B83A 


81 20 INVER CMPA #$20 


B83C 


27 59 BEQ EXIT 




* "ENTER EXPONENT" 




********************************************* 


B83E 


81 OB CMPA #$B 


B840 


23 55 BLS EXIT 



********************************************* 

* "TOGGLE MODE" 

********************************************* 



** 


********* 


********** 


******* 


*************** 


** B842 81 


22 












B844 26 


03 


B804 F6 


E061 


OOTINS 


I.DB 


PORT61 


B846 73 


B8A8 


B807 2A 


FB 




BPL 


OUTINS 


B849 7F 


B8A9 



CMPA #$22 

BNE ZERMEM 

COM FORMAT 

ZERMEM CIJ* SMDC 
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* CONTROL FIAGS 


<SP>' s 




* FILL BUFFER WITH 










B8A8 00 FORMAT FCB 


B84C 8E 


B8AB 


SETMEM IDX tBUFFER 


B8A9 00 SMDC F(2 


B84F 6P 


80 


CLR G,X+ 


B8AA 00 ERRFLG F(3 


B852 C6 


20 


IDB #$20 




B853 E7 


80 


SETME3 STB 0,X+ 


********************************************* 


B855 8C 


B8B7 


CMPX IBUFFER-H2 


* OUTPUT BUFFER 


B858 26 


F9 


BME SETME3 


********************************************* 
B8AB BUFFER R*B 12 


BUFFER 




* MOVE DATA FRCM PORT TO 
















END CAI£0 


B85A P6 


E061 


OUTANS IDB P0RT61 




B85D 2A 


FB 


BPL OOTANS 


ERROR (S) DeTCCTTD 


B85P B6 


E060 


IDA PORT60 




B862 CC 


163E 


IDD #$163E 


SYMBOL TABLE: 


B865 FD 


E060 


STD PORT60 




B868 F6 


E061 


OOTAN6 IDB PORT61 


BUFFER B8AB CALCO CI 00 ERRFLG B8AA EXIT 


B86B 2A 


FB 


BPL OUTAN6 


B897 FCAI£ B800 


B86D F6 


E060 


IDB PORT60 


FORMAT B8A8 INITAL B898 INVER B83A MCLEA3 


B870 86 


OF 


IDA «$F 


B828 MCLEAR B82I 


B872 B7 


E060 


STA PORT60 


OUTA12 B878 OUTA17 B884 OUTA22 B88F OUTAN6 


B875 8E 


B8AB 


IDX #6UFFEft 


B868 OOTANS B85A 


B878 F6 


E063 


ODTA12 IDB PORT63 


OUTIN6 B814 OVTINS B804 PORT60 E060 PORT61 


B87B 2B 


07 


BMI OUTA17 


E06I PORT62 E062 


B87D F6 


E061 


IDB PORT61 


PORT63 E063 SETME3 B853 SETWEM B84C S4DC 


B880 2B 


OD 


BMI OOTA22 


B8A9 ZERMEM B849 


B882 20 


F4 


BRA OOTA12 




B884 B6 


E062 


OUTA17 IDA PORT62 




B887 84 


OF 


ANDA #$F 




B889 8A 


30 


ORA #$30 




B88B A7 


80 


STA 0,X+ 




B88D 20 


E9 


BRA 017TA12 




B88F 86 


36 


OUTA22 IDA #$36 




B891 B7 


E061 


STA PORT61 




B894 B6 


E060 


IDA PORT60 




B897 39 




EXIT RTS 








* INITIALIZE INTERFACE 




PIA 








B898 CC 


7F36 


INITAL IDD #$7F36 




B89B FD 


E060 


STD PORT60 




B89E CC 


0034 


IDD #$0034 




B8A1 FD 


E062 


STD PORT62 




BSA4 B6 


E062 


IDA PORT62 




B8A7 39 




RTS 








FOR THOSE WHO 
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68XX(X) And The 
STD BUS 



v 



By: BUI West 



-^ 



BIIX WEST INCORPORATED 
174 Robert Treat Drive 
Milford, Connecticut 06460 
203 878-9376 

I have been promising to discuss the design of ihe STD- 
RIOC for several months now, and will finally do so in this 
aiticle. Before jumping inio the technical stuff, however, let 
me address several other points. The first is that the STD* 
RIOC is a product of my company, Bill West Incorporated, 
and this article should not be considered an impartial review 
or evaluation. The intent is lo piovide the reader with two 
things: a greater understanding of the STD bus by describing 
the design of a particular STD bus product, and an introduc- 
tion to a product that may be of interest to some of you. The 
oiher point I want to mention is that I have veiy little idea of 
the technical background of the majority of 68 MJ readers. 
The majority of the logic design of the STD-RIOC is imple- 
mented with PAL(tm) devices. For someone familiar with 
such devices* merely listing the logic equations might be 
sufficient exposition of the design, while oiher readers might 
desire a multi-part tutorial on digital logic circuits. The 
following presentation is somewhere between these extremes. 

Ihe first step in any design is figuring out what you are 
trying to do. In ihecase of the STD-R IOC, the goal is to be able 
to use STD bus I/O cards with computer systems not based on 
the STD bus. Specifically, we want to allow computer 
systems which use the Motorola Remote I/O Channel (VME 
bus systems and the GMX Micro- 20) lo use an STD bus card 
cage as an I/O expansion bus. In order to due this, we must in 
some way adapt ihe signals of the two buses to be compatible. 

Ihe signals of each of the two buses with which we aie 
dealing can be broken intofourgroups. These include a power 
bus, a data bus, an address bus, and a control bus. The spec if ic 
signals in each group are detailed in pievious articles in this 
scries (STD -Nov. 87, RIOC- Jan. 83). Thepowerbusisthe 
simplest to deal with. We will provide a separate power 
supply for the STD bus card cage and use the 50-pin option of 
the RIOC, which means ihe only "power" signal which must 
be connected between the two buses is logic ground. This is 
merely a direct connection between the two systems. Ihe data 
bus is almost as easy. Both the RIOC and the STD bus use 
eight data lines. However the data lines must be buffered to 



insure that data is transmitted reliably between ihe two sys- 
tems over the interconnecting cable. For you programmers 
out there, a buffer in a hardware system is not the same thing 
asa bulferina softwaresystem. Programme! siefertoachunk 
of memory where data can be temporarily stored as a buffer. 
In a hardware design, a buffer provides no logical function, 
but merely provides the necessary voltage or cur rent drive to 
transmit a signaJI, or the necessary signal conditioning lo 
receive a signal. The logic of a signal is the same at both the 
input and output of a buffer. Since we are dealing with a bi- 
directional data bus that allows data to be transmitted eilher to 
or fiom ihe RIOC to ihe STD bus ova- the same eight wires, 
we must provide a data buffer that can be "turned aiound". We 
will use an 7413245, which provides the eight buffers needed, 
along with "direction" and "enable" contiol lines. 

Connecting the twelve-bit address bus of the RIOC to the 
STD bus is in some sense easier than connecting the data bus. 
Ihe address bus is unidirectional, with address information 
always originating from the RIOC and being received by the 
STD bus. Since we are primarily interested in using I/O cards 
on the STD bus, and since the largest number of I/O cards on 
the STD bus are 280 compatible, we will consider how to 
connect Ihe twelve addiess lines from the RIOC to the 280 
STD bus. Ihe 280 STD bus (and the other 8 bit versions of the 
STD bus) support a 16-bit memory addiess bus and ait 8-bit 1/ 
O address bus, with a memory expansion (MEMEX) and an 1/ 
O expansion (IOEX) line available. Again, since we are 
interested in using I/O cards, we will consider how to map the 
12 address lines of the RIOC to the eight address lines of the 
STD I/O bus. The obvious thing to do is to connect the eight 
low order address lines of the RIOC <A0 - A7) to the corre- 
sponding lines of ihe STD bus. The next two address lines are 
used to selec t between four pages (236 bytes each) of STD bus 
memoiy. These four pages include the regular and expanded 
I/O pages, 256 bytes of memoiy mapped I/O, andone page for 
addressing control registers on the STD-RIOC. Ihe remain- 
ing two address lines are used as select lines for up to four 
STD-RIOC interface boards, allowing a single RIOC to 
support four STD expansion card cages. 
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The fourth group of signals lhai must be dealt with arc 
those thai comprise the control bus. ITic control bus includes 
the STD MEMEX and IOEX signals mentioned in [he previ- 
ous paragraph, along with the lines that provide liming infor- 
mation to ihcbus and allow the servicing of interrupts. First 
let'sconsidcr ihc simplest form of read and wrile data trans- 
fers for a generic SID bus card, as described in the STD Bus 
Specification and Practice guide from the STD 
Manufacturer's Group (STDMG). The first step in a data 
transfer on the STD bus is selecting the desired memory or 1/ 
O address. Depending on the spec ilic type of transfer, this will 
requite activating from eight to sixteen addiess lines, along 
with cither MEMRQ* or IORQ*. and possibly cither ME- 
MEX or IOEX. All of these lines arc considered address 
qualifiers and may be activated in any sequence. Afteraddrcss 
setup time requirements have been mct.ciihcrRD* orWR* is 
activated. Typically, in a write cycle the bus master will place 
data on the data bus before activating WR*, but this is not 
required. Data is latched on the iising (trailing) edge of RD* 
or WR*. and is held on the bus for the required hold time. The 
address selection lines remain valid until after the iising edge 
ofcithcrWR*orRD*. 

Now let'sconsidcr the signals available from the RIOC 
ITicrc arc 12 addiess lines, a write line (WT*),and the data 
strobe (STB*), along with lirc XACK* input, which is used to 
terminate a data transfer cycle. Ihc RIOC master sets up the 
address lines and the WT* control line, and then brings STB* 
low. I na write cycle, the RIOC master also puts valid data on 
Ihc data bus before activating STB*. When the slave has 
cither iiansfcircd the data off the data bus in a write cycle, or 
placed valid data on the data bus for a read cycle, it activates 
XACK* to indicate to the RIOC master that it can end the 
current transfer. If a read cycle is taking place the master ihcn 
transfers the data from the data bus. To end the cycle, the 
master raises STB*, after which ihc slave raises XACK*. 

How do we use the signals available from the RIOC to 
conuol the STD bus? The data bus and address bus we 
discussed above, and except for some mapping of the address 
bus the signals on the two buses arc compatible. Lct'sassumc 
wc wish to address an I/O device on the STD bus, and also that 
we are not using the I/O expansion addresses. This means that 
the IOEX line must be low, and so must ihc IORQ* line. Since 
these arc considered address qualilicrs on the STD bus and do 
not contain any liming information, if wc only want to do I/O 
transfers in the regular (non -expanded) I/O page, these lines 
can be set low permanently. Wcnccd to generate RD* or WR* 
for a read or write cycle respectively. Wc do this by combin- 
ing the RIOC signals STB* and WT* according to the follow- 
ing equations: 
RD* = ( WT*\STB* P )' WR* = ( WT*.STB*' Y 

Ihc above equations use the same conventions Bob Jones is 
using in his column entitled "[.ogically Speaking** wilh one 
addition. I am using the "*" symbol to indicate a signal that 
is active low on ihc STD or RIOC bus. This means that 
logically speaking (sony Bob) WT** is the same as WT. 



However, since the actual signal available to us is WT* 
(i.e. the voltage on the WT* line is near volts duiing a write 
cycle, and near five volts during a read cycle) it is useful to 
explicitly state this in the equations. To state this in terms of 
hardware, the WT* signal is directly avai lablc from the RIOC, 
while to get a signal equivalent to WT, wc need to add an 
inverter circuit. The inverter is represented by the " M * in the 
expression WT**. 

What the above two equations indicate is that whenever 
thcR IOCsignal STB* bccomesaclivc (goes low), citlrcr WR* 
or RD* on the STD bus will also become active (go low), 
depending on the state of the RIOC signal WT*. This is 
exactly what wc need to siail the bus cycle on the STD bus. 
How do wc end the cycle ? The STD bus expects the master 
to term inate ihc cycle by raising cither RD* or WR* , while the 
RIOC expects the slave to bring XACK* low to indicate lhat 
it has transferred data to or from the data bus. Apparently the 
STD-RIOC interface card will have to generate the appropii- 
ate signals for both buses, since it functions as a slave on the 
RIOC and a master on the STD bus. 7 his implies that timing 
information will have to be generated on the STD-RIOC card, 
leaving the timing details for later, this means that the STD- 
RIOC will generate an XACK* signal for the RIOC master 
after an appropriate delay from the falling edge of the STB* 
signal. When the STB* signal from the master goes high, it 
will force cither RD* or WR* high, ending the STD bus cycle. 
(Refer to the two equations above.) The STD-RIOC will than 
bring XACK* high to complete the cniirc data transfer. 

Although I have glossed over some of the details, ihc 
limingsequcnccdcscribcdabovc is adequate for interfacing to 
static memories and some I/O devices on the SID bus. Many 
STD bus I/O cards, particularly those using 5800 type periph- 
eral chips, requirca higher degree of synchronization than that 
provided by the above liming, l^et'sconsidcra 6809 processor 
iunning at a clock speed of I MHz. It has two clock outputs, 
E and Q, which run at the same frequency but out of phase by 
90 degrees. Each bus cycle starts with the falling edge of the 
E clock and ends with the next falling edge of the E clock. 
Each cycle is divided into four phases by the E and Q clocks. 
If wc label the phases pO - p3 (small letters indicating these arc 
not signal names), the logic equations for the four phases arc: 

pO = E'Q* pi = E*Q p2 =: EQ p3 = EQ' 

Roughly speaking, address information is valid from the start 
of p I to theend of the cycle, data being written by the 6809 is 
valid during p2 and p3, and data being read by the 6809 must 
be valid duiing p3. What docs this mean if wc use the 6809 on 
the STD bus ? It means wc cannot just go in and give RD* and 
WR* strobes at random times (asynchronously) but must 
assert the signals in coordination with the E clock (synchro- 
nously). Since the STD bos only requires that the data be valid 
on the rising (trailing) edge of the RD* or WR* signal, a 
simple way to do this is to combine the E clock with the ready 
write signal of the 6809 (call it R) like this: 
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RD» - (ER)' WR* = (ERT 

This will let ihe 6809 generate a reasonable approximation of 
Z80 RD« and WR* signals. 

Ihe STD-RIOC is not equip«d with a 6809 however, and 
it is necessary to generate timing information similar to that 
provided by the 6809 E and Q clocks by some other means. 
This is done with a standard microprocessor clock oscillator 
circuit and a 74LS 163 4-bit binaiy counter, which is used to 
generate a sequence of sixteen states, which I will call tO - tl5. 
(I am using a small t to make it clear that these aren't signal 
names.) 1 hese t slates can be consideied a shorthand leprese n- 
talkxi for the outputs of the counter. IjcCs call the counter 
outputs X0 - X3, with X0 being the least significant bit Ihe 
following chanshows the logic representation and the voltage 
levels of the counter output for each t slate as it occurs in 
sequence. A 1 is used to represent a high voltage level, and a 
a low voltage level. 



tO 


X3 , X2 , XrX0' 


0000 


tl 


X3 , X2 , XTX0 


0001 


a 


X3'X2 , X1X0' 


0010 


13 


X3'X2'X1X0 


0011 


t4 


X3 , x2xrx(r 


0100 


15 


X3 , X2X1 , X0 


0101 


(6 


X3'X2X1X0' 


OHO 


t7 


X3 , X2X1X0 


0111 


t8 


X3X2 , XrX0 i 


1000 


t9 


X3X2'Xl'X0 


1001 


tlO 


X3X2'X1X0' 


1010 


til 


X3X2'X1X0 


1011 


112 


X3X2XrXO 


1100 


113 


X3X2XTX0 


1101 


114 


X3X2X1X0' 


1110 


115 


X3X2X1X0 


1111 



Note lhat although this is a binaiy counting sequence and not 
a Gray code (refer to Bob Jones* ait icles again), thatall the odd 
numbered t states differ from the preceding stale by only one 
bit, X0. This means that if we only make things happen duiing 
the odd numbered t slates we won't have to worry too much 
about things like slightly different transition delays on the 
counter outpuis. I said we will use the t stales as a shoithand 
for representing the logic we need to implement. The follow- 
ing two equations are an example of this, where F is some 
arbitrary function that I am using so that there is something on 
the left side of the equation. 

F = (STB*)'(WT^) , X3 , X2XrX0 F = (STB*) , (WT»)M5 

The above equations both indicate lhat F is true when the 
STB* and WT* signals are low and the outputs of the binaiy 
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counterequal 5, but the second is ceitainly easier to read. Now 
we can simulate the clock outputs of the 6809 like this: 

E=rt9+tl0+t11+tl2+tl3+tl4+t15+tO 
Q = t5+i6+t7+t8+l9+tl0+tl I +tl2 

Ihe icason I didn't stail with t8 for the E clock is that as 1 
mentioned above, going fiom an even to an odd numbered t 
slate only one of ihe clock bils, X0, changes. The following 
two equations show how we ihe STD-RIOC can generate ihe 
RD* and WR* signals for ihe STD bus using die four bit 
counter for timing information: 

RD*«((STB*) 4 (WT«)(t9^tl0Hn^l2^il3^il44il5-n0))' 
WR*«((STB*y(WT*y(r9+il0«l i+ii2«i3+il4+U5+t0) Y 

Alihough ihis is ceitainly workable fiom a logic standpoint, it 
is not the simplest implementation in terms of the hardware 
tesources available to use. However, at ihis point I will stop for 
ihis month. Next monih I will discuss how we actually 
implement the RD* and WR* signals using flip-flops (you 
have probably been doing mental flip-flops the whole time 
you have been reading ihis). Also, we have left the RIOC 
master hanging there waiting for X ACK* , but it will have to 
wait till next month too. 
+++ 
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NOW THE GMX MICRO 20 HAS A TWIN 

ANNOUNCING THE 

GMX TWINGLE - 20 

68020 TWIN BOARD COMPUTER wllh MMU 

All the features of the GMX Micro * 20, plus 

* 2 Megabytes additional RAM » for a lou) of 4 

Megabytes of RAM 

* 8 more Serai ports - for a tou) of 12, and 
expandable up lo 44 

* MEMORY MANAGEMENT UMT 

The GMX TWINGLE - 20 consists of 2 boards. One of the boards is 
the same as the Micro-20, except for the 68020 processor which is on 
the MMU board. It uses the same I/O expansion interface, serial 
adapter boards, and mounting holes u ihe GMX Micro-20, making it 
easy to upgrade existing systems. Any of ihe currently available GMX 
Micro-20 I/O expansion boards can be used to provide additional I/O 
capability. Expansion possibilities include additional serial pons (up 
to 44 ports total), additional parallel ports, and local area networking 
of up to 255 GMX Micro 20's and/or TWINGLE - 20's- 

Ihe MMU boaid contains Ihe additional 2 Megabytes of RAM, 8 seiial 
ports with 2 connectors for ihe SAB 4 port adapter cards, and the MMU 
hardware. Ihe MMU is a propidaiy high-speed design lhal fully 
supports virtual memory. The system RAM normally operates with 
only I waiustate, regardless of processor speed. An additional wail- 
slate is needed only when program flow crosses a 4K boundary. Ihe 
MMU can be configured for any one of four different maps, ranging 
from 8 tasks with 8 Megabytes of virtual address space each, to 64 
tasks of 1 Megabyte each. Ihe MMU can be disabled for applications 
that do not use hardwaie memoiy management. 

Ihe TW INGLE - 20 two board act can occupy the same space as a half- 
height 5.25* disk drive. It is available in 125, 16.67 or 20 MHz, 
venions. and with or without the 68881 FPC. 

SRennCAIlONS 
Size: 8.8 » 5.75 x L4 inches 
Power Requirement*: +5VDC @ 8.3A typical (20MHz. with 68881). 

* Ihe TWINGLE - 20 itself does not require a +12V supply, 
+ 12V supply requirements, if any, are deteimined by the serial adaptor 
boards and any I/O expansion boards powered through the I/O 
Expansion Interface. 

SOFTWARE 

Included: An enhanced version of 020Bug wilh diagnostics for the 
MMU and the additional RAM and seiial pons. 

Optional: Uni FLEX- VM, Vitual Memoiy version of the UniFLEX 
operaling system which includes all of the features of ihe 
GMX Micro-20 version, plus full MMU support. 

Ihe UniFLEX VM Operating System b a demand paged, virtual memory 

operating system written in 68020 Assembler code for compactness 

and efficiency. Any UniFLEX system will ran faster than a comparable 

system written in a higher level language. This is important in such 

areas as context switching, disk I/O, and system call handling. Other 

features include: 

•Compact, efficient Kernel and modules allows handling more users 

more effectively than UNIX systems, using much less disk space. 

•UNIX system V compatibility at the C source code level, 

•C Compiler optimized in 68020 code (optional). 

•Recoid leaking for shared files. 

•Uteri can share programs in memoiy. 

•Modeled after UNIX systems, with similar commands. 

•System accounting facilities. 
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•Sequential and random file access. 

•Maximum record size limited only by ihe disk size. 

•Multiple level Directories. 

•Up to 8 Megabytes of Virtual Memory per user. 

All Ihe optional languages and software ihat run under UnilLEX for the 
Micro-20 are also available for the TWINGLE • 20. 

OS-9 users can take advantage of the additional RAM and serial ports 
on the TWINGLE - 20. it does not presently support the MMU. 





CmX- 1337 W 37th Place. Chicago, IL 60609 
(312) 927-5510 — 7VVX 910 221*4055 — FAX (312) 927-7352 
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Star-K Software Systems Corp. 

P O Box 209 
Ml. Kiico.N.Y, 10549 

(914)241-02*7 

Don Williams 

4 68 Micro Journal 

5900 Cassandra Smiih Road 

Hi*son. TN 37343 

Dear Don: 

Jusi thought Id lei you know of two 68xx(x) Bulletin Board 
Systems. 

To provide a way to keep in touch wiih my many customers 
and friends in the world. I recently set up a BBS at (914) 
241-3307. It is open to all 68xx(x) users, but lo avoid 
clogging up the system, we try lo downplay coverage of 
those systems which arc already covered by other bulletin 
boards or CompuServe forums (such as CoCo's. Macs, Alaris, 
Amtgas, OS-9, or other mass-market computers.) 

There is also a Motorola Freeware BBS at (512) 440-3733. 
It covers a broad spectrum of Motorola processors, including 
the 68HC1 1 and 6805 scries, and has a number of 
downloadable Hies. 

Many thanks and best regards, 

Sincerely. 



n 



UbcrsuX^_ 



Peter A. Stark 
President 



GESPAClnc 
SQWmtHtxnw A**. 
MM*.ArtB»ttl92D2 
T*. (§021 9624459 
Fax. (602) 9624750 



n— rtiff Conine \. Mark Stephens 
EriMori*! Contact: Co*™ Pnbouclsidis 



8 CHANNEL RESOLVER 0VTERFACE BOARO FOR THE C44 BUS 

MESA. AZ. DECEMBER t6, 19S7-GESPAC ba* released ■ resolver 
interface board for the 64 but. Ihe GESREV-l condiliom and 
muliipleiei eight reiolvert ind converts their output lo i 12 bit 
Dumber in 400 microseconds per channel. A resolver ii a precision 
Inductive angular displacement trinsducer widely uied in robotic 
and machine tool application!. 

The OESREV-1 is equipped witb a ayuchroniziiion mechanism thai 
■Hows two or more boards to work together in a mold -resolver 
system. This function allows the user to perform bigb iccuracy 
readlflgi using a comet t ine encoding scheme. The excitation for the 
resolver is provided by an onboard power sinewave oscillator at 2.5 
kHz. Ihe board ii built on a compact and rugged single height 
Eurocird of 100 * 160 mm compatible with the standard 0-64 bus. 
The 0*64 bos is id easy- to -interface, nonmultlplened 16 bit bus 
aimed at induiiriil microcomputer applications. 

The GESREV.l is aviilible today and is priced at $895. 
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Ftniiluppedia 1979. d* 68000 e0OT a 324^ iiav&al avchasiurt on ■ 1 6- bk data, bus, Tht 
6M00 il populir in pcnoniJ compuHn r Ira pruKcn. rotouiri , o 
embedded tcAiniutfi 

•80IQ * Added frS wirawl m m sod «ct m1 a 
ibc tfeof im (octet oiii^iu 
COTOpaa&f jwtr to dto doaso^ 

4*020 - ThcftmM 13-tktiDKiQpmHuor 1V 66070 fe d* standard 'or fli ch ? 
•prkSTSCkMt and pirtiCT ipptKawai TV imnUaJ tsuc of onr imi: 



•prtnukMt *<■) piptuci iFptKrflonni TV diaaUaJ tsUC of (W L saltan 66020*1 lo 

yjtcn. »wfc*[iiH¥U. Irlrphonc twrtttlMf lyticira. 'may ■uUxmbon dn 
CDntruttenif upporud by ■ .12 -feu software Nut nmdinj $2 biQioa. 
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68000 fexvlf j tndlni pern*™** whik tminuinlnt. fcftwmir nntntfttty 
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Cunningham CommuAic at»on, titc 

2350 Misiion College Boulevard 

Suite 900 

Santa Oara.CA 950*4 

(406)962 0400 



READER CONTACT 
Dem Moiley 
(5 1 2) 440-2839 

INQURYflESffittiiK. 

TrfhniLMJ In! twin jUlw Cenicr 
PO Be* WIT} 
Phoenix. AZ 85072 



MOTOROLA UNVEILS 68010 

Sccood-Gcncratien 32 -Bit Chip Doable* ftsfojroar** of 68620 
030 id Fuel High*Perfojm*nce. Low- Co* i Appbcauons 

NEW YORK, Oct. 29. 1987— Ai s newscoofcrencc today, Motorola unvolcd Us 
newest 32-blt roictvptxtfttMr. »Jie 6d0J0 (030X wiih top execuovrs fnjm Appk Corapvitf , 
NCR , NonJtero Tctircom. Sun Siicnjsyuerm and Unisys on Kand io cv*krx M«omla' 4 
evolvtni 68000 line of n^cT^nr^asow Mouxola has comofelcd jjji nwtJw of evaluabon 
sampling wiih key cusiomcrt. and h now accepana orders for tNc 030 wiih a top ipeod #f 20 
MMe, 

The030» the novel) member of the 66000 family, provide* iwicc ihe perfonna»»« of the 
most powerful and widely used 32-biif hip, Motorola*! 68020 (020). u well as proce«son 
»uch m Iniel Corp. % 80386 The 0(30 is «he fim (tncrpprorrstf ki have on-chip dai a and 
irumicoon exhes, parallel (Harrazd- style) uthitttiure and dual modes of address 
Aoaording to Mornnla. ihcsc advanced features will enable system manafactuten loofTet 
complete 32-bi t eornpuicr systems wiih pt kes as tow as S2.000. 

The 030 rnuin U»e oomplcie uaiuiULialtzation of 32-bii esompvang." said Dr Murray 
X GoldosaA. «rtuoc vice pmaJcnt and gcnefaJ manager of Mofc^b'i MJcrorarxTssor 
Prodvcti Group (Austin. TcxasX "32-twi processing — <rvCc an exclusive Nigh end 
>ectwtoio87— w»s i>ade available to many through 020- based systems from Apple, NCR. Sun 
*nd ApoJJo. The030's feaoircs will make 32-bit pmccsnnj mdy amiss mute i standard" 

Motoioli and Logic Ag©maotJn <fie*venrm. Ore,) also azmouncnJ today dcvelopmaxt 
loob tor dexignefs creating tytusw vound rive new chip (see dectib in cotopankn releasea). 
Ptoducis. baaed oo (he 030 are especial k> be anooorvod early in 1966. 
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flJQ— Twice '»" Mn^™~»-~ 

TV 030<nJea*amed "oft thirty") retains all essential feaniic* of the COO, ind include* a 
number of enhancements that ucrtase ihe (mmKr't "pamDeUsm' --ihe number of functions 
it can perform sunulorcousJv— and its "bandwidth" — the rate at which ilean feed infeenufKK 
to tia ccooal execution unit 

These innovations not oolyiocxeaje process** performance, *hcy help 10 reduce overall 
system cost Benuae the 030 'i high pcrfamam docs not rapiim extra compon e nts mch a* 
graphics cuyiULEiv**. memory fttanaieroent hardware and expensive static random access 
memory <SRAM). overall system con can be reduced while offering ihc highest performance 
a vailaok. The price of some 030-bascd systems wilt be as low as $2.000— a fraction of Ok 
•cm of cvntfli 32- bi t sy stems. 

The 030 u the fmi general- purpose 'ukuym aia witli orxhip "cache'* raonary for 
nxt^Krter inscnaaioni and data (the 020 was the first with an instruction cache). Cache u very 
high-speed trmptra/y ca*«gc of the uitoraadofl ruort recently used by the pnzeuer, Ihe 
processor stoics this Inf ormafion on<hip ui the Ukdy event that it will be used by the 
<«cCUdon unit (tadencnAe/H benchmark have proven thai on-chip cache ixvicase pnmsor 
efficiency by 20 to 4i percent). By icon"! <hix essential infemmnon on the chip itself the 030 
avoids the delays associated wilh external nvmxry devscex 

The 030 is also the tint chrp wtth an bncros) parallel tichttecturc called Harvaro style 
cciuuxTurc, The 030 has nro vekpendem address buses and two Independent J2-Mt data 
buses (See Diagram I J, aBowjai the exe c ut io n mat to aceeat and use multiple data sources 
cimulAraxais'y TrwJca<*uUy icsnraad to cnainfrvre computers, iufascarnputen and 
reduced litsmacaxv set ampvan (R1SQ. this a/chi*ctyre povidem multiple, parallel data 
paths on the chip, speeding mfortnorioo flow (For more infeemarjen. sec the baekjjomvief 
entitled: "Mowiola's 68030 Second-Generator 32 bit M a. r o pr ta. e m r." ) 

The 030 will boost the computing Nwpow of existing systems, such as high* 
pcrf ormaacc tcScanfic and enewcennj wartsack*»s, leleoinfTTuakaODn switches and 
cobm^occsaor xysterm (such as supercomputers), (t will also serve as die basts for no* low 
cost 32-bit pladbrcns such as pcrtsaxal worfcsxtdon* far budneis. engineering and education. 

m filTlaVirilifle 

The 030 ta a fully ocnqadble armha of Motorola's M68000 family, which includes 
the 68000 and the 68020 oauiyiiussva. The 020 Is the world's best-selling 32-bit 
m utwnw f, Together with other rcobersof the 68000 family, ii hai gciamed the 
largest 32»bit software base ($2 btZkioe) and nasi established hardware base (W8 billion). 
The 030's ctanpt*tt ampacMiry with nrazxling fcflOOO-fsmiry pnxcascn will allow 
amaast to easily lake advaneafc of applications software designed for earOer systems 
and provide simple hardwire upgrades. 

H«)dtalsc^macgficu<iTncum^iJyctfrer0^.c«i^pn7d^an£ It ■» ihc kadinj 32 ba 
t nkna^uLt aky in multiuser business gyamnx, technical woriizadmo, tetecunnamkaoons. 
molnpnw rfr^ ng lynma, fohoflics and indiums! conwL Products based onche 68000- 
family <nrcropreax*<arc include business confute** from Apple, NCR and Unisys; laser 
printer* from Apple, Canon and Ricoh; and engineering workstations from Sun 
Microsystems and AP°UoGompd)er. 

'The ability so upen wdeiy varying marWti is a lemony to (he OejubUiry and power 
of the 68000 family of mkroptoressors .- said Goldman. "Our chip* tit found in 
everything from airline reservation systems to business computers to cupoceenputen. and 
we acfcsi ihc 030 to expand our picture even further " 

Mousola has completed six months of evaluation axupuog with hey ounners is now 
aceepcin* orders for the 030 at a top speed of 20 MHx The 030 1% naicntfy available at 16 
l)Xi 20 MHz tpeeda. with tingle unirj pdoed at 5*00 and S550 respectively 

Mc«cfola'i{2 bdlian Semiconductor Prunisu Seoor{PSoeni#. Ariz.), which 
includes the Monejwxssor Producu Group (Austin. Texas), in a diviooo oTMonsoIa 
Inc. It is the largest and ensdesi supplier of semiconductors to North America with a 
tnkortd produce portfolio of over 50. 000 d 
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MOTOROLA DISCLOSES DEVELOPMEIVT OF6»040 

Announcement Cononues Evolution of 68000 Family, 
Coincides wiih Debut of 68030 



NEW YORK, Oct. 29. 1987— Motorola today announced the development of a third- 
genennon 32-Nt mxst^rxDSor, signaling cusiooxts that the 68000 tnioop*x«j<» une wi!J 
continue to \no*mic in perfonmuaz. The new chip, called the 68040 (040). will be fully 
ecxDconnk with prarading gznsoiwvttof the 69000 family, 

The disclosure of the 040 (nieknaowd "ah forry**) devesofCKztl p*t>jeci came at ihe dccxit 
of ihe am^any's newest 32-bit m kJty tinn y, (he 68030 (030) ui New York MotutfoU 
announced thai it is now taking orders for delivery of the 030. Mmzvoix has not released 
specifkidons, pricing or a producbon schedule for the 040. 

"The 68000 family has a flawless eight-year track rectad. and our customers depend on 
ibe compoability our chips provide io enjure the coDomiin8 cvolubon of their pcoduct lines," 
said Dr. Murray A. Goldman, senior vice eerandcni and gcrcral manager of Motnola's 
MJcTvpjnx&u* Prgducw Group (Austin. Texas). "The 680^0 will have the 
chaewnsoci. that our aisiixnen demand: 68000 family cwipaiibiliiy, leading prrfdmance, 
32-bit architecture and a secure sirpply tcxutc. As wc connnuc to increase die per^ormanct of 
the 68000 line, our customers know o\u ihcrr ncxi-icoetstion system wril not be thea- tosk" 

MfrBQQfl raimly PacnptKm 

The M68000 line currently has four nsksopnesosor aKnaVn— ibe ASOOOl 680ia 68020 
and 68030. In «otoU 10 million chips from the family have been aofcl Ail goieradonj of the 
6W00utcxwr^teictycurrv4riNewiiheachc^^ 

mndiAcanon on the other*, and hardware upgrades are very am^le (For hbr infcnaidmi, 
see the backgrountfen entitled: "Motorola s 68020 and Use 32-bit M k r opwan aor 
MaTtcl" and "Mocorola'i 68030 Senwvj Oenenoon 32b»i Ms Lwxasxga aor ") 



66 Micro Jouma] 



February '88 



55 



The 68000 chip, iosnaducxd in 1979, «u the flagship pradisci of the family. Although « 
wu technically classified as a I64ht oi^inuur, ir» 32-bk internal eiCniuinkaT provided 
upward nwnp^hh.'liiy with us r/ue 32.bi* sikxesson. The popular chip is found in 
cmpuarn. laser printers, edephone syrcrm and vrxifiioou 

The 68010, introduced in 1983. is a modified vcrvon 0/ 6c 68000 chip. It wu the first 
nticrrjpraxaor to offer Virtual atadtiDe"" c a p a b ili ty , a Feature dm made is the process* of 
choice in f«uU t?k7VJ CTOT^ccn dcagpcd k» run without inscription. These include 
hwiking lyjfeou. traxsartion terminals, flight rcstfvatfczis systems and BaamtfVkMka ^ 
network*. 

The 68020 <020)— (he first Hue 32-oti usa-iiaataa Ma- ^sutod a revolution in aveputiiig 
VunxliauJ in 1 984, la unpn alleled pa rvmua. buili-» grepska e*pxhib'iy and 32 oil 
axhiasture made i( the mmt widely used 32 -bit luajiyitaj^si* in die world. More Am 100 
companies currently rely 00 ihe 020 to power >«'«<^—. soeottfk and (ndismaJ lysmma. The 
chip U ihe foundation of the engineering wvtsndn> anrfo and ushered m the graphic* 
rcvoluoon: 88 p«it>^ of all worksr*tioo vrikkn ust the 020. Overall, the 020 reprexms 72 
percent or 32-bu (rtciUfBuajon sold, beating out «U competitors, including the Intel 80386 
Before the introduction of the 030, the 020 ranked as Uk mosi powerful general-purpose 
nuarjajrecssoroo (he marker 

The 68030 (030), shipping in 1987. is Hie newest member of the 68000 family The 
u*x*a 0/ previous gen«aoon» provide users of (he 030 with numasnaia advaruagc*. It has 
(he largest 32 oil software base fS2 bilboo) and most atabUshn) ha/dwan: base fJ86 bUUooj. 
The 030 it f tipufitaot *d»sr>cc b *^aH3aAre» >ttiuxik>$y . It a the first gcr«™)- purple 
sncropnsesKTr 10 have 00 chip dan and insjnccirv caches, parallel (Harvard-style) 
architecture ind dual modes of adrbess. Motorola feds that these advanced feature* will 
enable system rnanufacoscn to offer coroplcie 32-Nt cornpuier systems at prices as low as 
S2,000. 

Motorola's $2 billion Scnsfeonductor Pfoducrs Sector (Phocau. Aha.), which includes 
(he Msmjpj»aaes«flr products Group (Austin. Texas), it a division of MoffroU Inc It is die 
largess and hrcnaVst supplier of serojeotafuevrs in North Artterica. with a balaoced nrodica 
portfolio of over 5OJD00 device*, 

MOTOROLA ANNOUNCES 68882 MATH COPROCESSOR 

B82 Delivm Twice the Performa/re of 88 E,rtaailit IOOPercent5oftware^nCc<npaobility 
CeoeraJ Delivery Begin* Otambcr 1987 



NEW YORK. Oct 29. 1987— Mon*U» today a orxnctx* the 68862 (682). ihe 

asand-tTnersbofi 32-nlt Coating point math c©proca«r The 662 offers two to 
four rimes the pcrihrmanEz of the 6688 1 (881). the first math coprocessor to strictly conform 
to ihe IPSE Standard for Binary Fkaating Point Arithmetic The 662 incorpovaies the same 
stria conformance to (he IEEE Standard, plus software oocnpatibdiry, pin aaimasbiury and 
broad -based funrvrtabty 

The 682 wis introduced b tandem with Motorola 's 68030 (030) nx kieym syg «o6^y 
in New York. The 882 uyvwv it a high-pa fonnsnee single chip used for totcnwve 
madxmaticaf calculations, Although u can be used with any cracst^raasaor on an 8 * t 16- 
or 32-crtt data bus, its architecture is optimized for the high-pet formancc features of the 
66020 and 68030, Moravia is accepting orders for the 882 at speeds of 16 and 20 MHz. 
priced at S245 and $375 respectively. 

Rmtini poini math cojaoccssiva arc used 10 speed dsuncmaocB) caacuisdom m 
applicsoons ranging ftrwc sprcadshev tabulations to mechsekaal drawing. Because a 
cogmga vis a hardware solution, it can perform fxathemdea) fuoctions 100 Qmes as fast 
as aoftwve soJudobs. 

The 682 includes s nunsbcrof feaMm that <oac»* its "paralldisin"— that u, the 
fljcmheroY «h> gs it can do at once. The 882 csrruio \mauc6nnt, moves informaoon 
mieroafiy and e"crnaMy and convero dura simulovtonsly to teocase prrfonrauwe, 

The 882 has many similarities «o its p miroi sot. ihe 881, From the standpoint of 
applications software, the Two ue compatible, tight down 10 the results gemrued by 
calnuanVen. The (nstActixn setsvppviBd by both devices it ilso identical, finally, the 66 
and 882 are pincnnp«abk Syssons utiiising the 881 will g*^t a 30 percen ( performance 
increase by tinsply unpiuggi g the 881 and replacing « with an 882. Wiih optimual 
snftwara; the 882 can provioe up to a four-fold perfortnaace i< 



" Can o kiiLa that use other oiaJtajnaj ap archiioctnres have often been forced to scrap 
thdr compunT and «ftw*je lines each tune tftcti source tnrodi»=c» a new chip," said Dr. 
Murray A. Guldmaa. senior vise prmder-tandf^^si manager of Motorola's 
Mfc-ropmxw Products Group. ^Bui (Uce the 030 which providej our 020 cutvm^rs with 
■ stnmrfb upgrade path, the 882 enables 881 users w speed up 6Vtr sysarros wuhoui kmng 
their irtidai invesarjeot in system design or •aftwase," 

881 T«hni«l <tr*nfi f -.^ nm 

* Eight general -purpose dual.poned Ooasing poim daoi *cgis«zx each regiito 
SMppxsfting a fuD 80-b»!sv Dual pcrting allows forcrsvurrcot aocessing. execution 
and coovcraiOA of data. 

* A flKHTvenstin control unii ihai meeds data formal o^ns^nutioru 6ocq 32 bik 10 80 
bits and vice versa, 

■ A 67-bit aruh/ocuc unit, allowing very fast calculations. 

* A 67-bit bsntJ ihJfter fw high-speed shifung opmuans 

* 46 UwTucooTU. including 35 anthmeuc furxtion s such as add. subtract, multiply and 
divide 

' Operation wfthany host proetik* on sn 8-. 16>, or 32 -hit data bus. 

Motorola's $2 bulion Sejmconductor Products Sector (Prwenis. AricX which indudes 
the M e- T iy^vs asor Products Group (Austin. Texas! is a division of Motorola Inc. It if (he 
larger and brawkja aankonducior supplier in North AcKxica, with ■ halffcad produp 
portfolio of over SO JD00 devices, 
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Ct*n*TV Lindi Wilson 
212/8SO 6336 
NEV BOOK EXPLAINS ASSEMBLY LANGUAGE 

PR0CRAKMIH6 FOR 66000 SYSTEMS 

The 66000 aiicro;hip has sixteen I laws the storage capacity 
of the 6086/6066 adopted by J8N for its compact ?C*systea>. 
Other corjpanles recctnlsed the powerful capabilities of the 
66000 and the increase in sales of the Apple Macintosh. 
Couasodore Aanga. Atari ST and other 66000-based systeas Is a 
testiBonial to its growing popularity. 

ASSEMBLY LANGUAGE PROGRAMMING FOR TNI 66000 FAMIL* (Ml ley: 
122.9*. paper: January IS, 1967) by Thorsas Skinner offers users 
of a 66000 sy&teai all the information and techniques they need 
to develop and write assembly language progress. The book 
covers the entire 66000 line, Including 660Q6, 66010, 66012, 
66020 end the now and powerful 66030. 

Sklnrtor. in assembly language expert, essusses no prior 
assembly language experience, explaining the basic principles 
of assembly language as originated by the 66000 chip's 
designer. Motorola. The programmer w;ll be able to create 
simple programs after the first fivo chapters, and coaple* 
programs by the end of the booK. 

Specific functions and techniques, of assembly language 
programming are covered in depth, including: 

* basic input /out put subroutines. 

* data types. 

* prof ramming instructions. 

* conditional and arithmetic instructions. 

* loeping. 

* I Inline and 

* debugging. 

Program shells for Macintosh. Jimiga and Atari ST series as 
well as separate chapters devoted exclusively to 68101. 68020 
and 68030 are included to provide users of these systems with 
more specialised Information. 
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SPECIAL OFFER 
(One Only!) 



to njn 



AAUSTANK3-020 12 MKx 

12 or 16 AAKx. 



TVtl* Is Don WlllkiiTw' "pe>raonol system", n 
for soiling - upgrod^d to 25 AAhz 



Regular price (16 MHZ with 68881) $5,324.80 

Complete with OS-9 & C 

SAVE first come ONLY $3.895.8ft 

68 Micro Journal - 615 842-4600 
Ask for Tom, Larry or Don. This won 1 ! last long! 

This system has hand-picked components. 



(f 



(fclaSSiflGdS As Submiucd- No Guarantees j 



ATAT 7300 UNDC PC. UNIX V OS, 1MB Memory, 20 MB H«rd DUk. 
5' Dnve. Internal Modon, Mouse. Bert Offer Gen It, 

S* Synem with Caftan^ 20 Meg Hard Disk & 8" Disk Drive with 
DMAF3 CcwwvUct Board ! XI 2 Terminal $4800. 

DAISY WHEEL PRINTERS 
Qwne Sprint 9. S900 
Qume Sprint 5 - $800. 

HARD DISK 10 Megabyte Drive - Seagiie Model 0412 $275. 
3 . Dual 8" drive enclosure with power 'upply . New in box. .$125 each, 
S - Stcrnai* 8 M Disk Drive , $100 each. 

Titio Outpost II, 56K. 2 5 H DSDD Drives, FLEX. MUMPS, $495. 
TELETYPE Medel 43 PRINTER - with serial (RS232) imcrftce and 
Full ASCH keyboard . $250 ready to run. 

SWTPC S/09 with Motorola 12*K RAM. 1-MPS2, 1 Paraiell Port, MP- 
09CPU Card - $900 complete. 
i Tow (615) 642-4600 MF 9AM to 5PM EST 
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ATARI 
CALL 



As most of you know, we are very sensitive to your 
wishes, as concerns the content of these pages. One of the 
things that many of you have repeatedly written or called 
about is coverage for the Atari 714 series of 68000 computers. 

Actually we haven't been too keen on these systems due 
to a lack of serious software. They were mainly expensive 
"game-toy" systems. However, recently we are seeing more 
and more honest-to goodness serious software for the Atari 
machine. That makes a difference. I feel that we are ready to 
stait some serious looking into a section for the Atari com- 
puters. Especially since OS-9 is now running on the Atari 
(review copy on the way for evaluation and report to you). 
Many ofyou are doing all kinds of interacting things on these 
systems. By sharing we all benefit. 

Thia I must street - Input from you on the Atari Aa 
moat of you are aware, we are a "contributor sup- 
ported" magazine. That means that YOU have to do 
your part. Thia iathe way ithaa been for over 10 years. 
We need articles, technical reviews of hardware and 
software, programming (all languages) and the many 
other facets of support that we have pursued for these 
many yeara. Also I will need several to volunteer to do 
regular columns on the Atari systems. Without con- 
stant input wecan'tmakeit fly tSo,ifyoudoyourpart, 
we certainly will do ours. How about it? Drop me a Line 
or give me a phone call and I will get additional 
information right back to you* We need your input 
and aupport if thia is to succeed! 

DMW 
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Clearbrook Software Group (604)853-9H8 



CSG IMS Is THE full featured relation- 
al database manager for 0S9/0SK. 
The comprehensive structured ap- 
plication language and B +Tree Index 
structures make CSG IMS the Ideal 
toot for file-Intensive applications. 

CSG IMS for CoCo2/3 OSS 11/2 (single user) $169.95 

CSG IMS for OS9 12 or 66000 (muKi user) £495.00 

CSG IMS demo with manual $30 




M$F - MSDos File Manager lor C0C0 3/OS9 Level 2 
allows you to use MSDos disks directly under 0S9. 

Requires C0C0 3. OS9 L2, S0ISK3 driver $45.00 



SER1NA - System Mode Debugger for OSS L2 

allows you to trace execution of any system module, 
set break points, assemble and disassemble code and 
examine and change memory. 

Requires CoCoj or Glmlx II, OS9 L2 & 60 ool . terminal $ 1 39,00 



ERJNA - Symbolic User Mode Debugger for OS9 
lets you find bugs by displaying the machine state and 
instuctlons being executed. Set break points, change 
memory, assemble and disassemble code. 

Requires 60 column display. OS9 Ll/2 $69.00 



Shipping: N. America - $S, Overseas - $t0 
Clearbrook Software Group P.O. Box 6000-499, Sumas, WA 96295 

OSS h > tfufrmffc of Mfcrnwua Syit*™ Corp 4 MSDot H t |ftd*mvx of Mercudfl Corp. 
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SK* DOS 

Tl» G*rw*c OOS * lor 68000 apoiicetioosm 

* fnduftrial Conlrof 

* Educational C/vnputing 

* Scientific Crwrejeuung 

* Norv*e* Crunching 

* Dedicated SvflPrn 

* Tvfiiiy Sylten>» 

* Oeta Collection 

* Single board Computer* 

* 6«« oriented Cornpulert 

* GrftpfcjciWO'kftJliQm 

* One-al i kind Syctemi 

* Advanced Hobbynl Um 

SX>00$ •> • nn»1eu»*r di«h operating *y«em for compute* sufcnQ Moiikoii 32 Oil CPU* 
euch at tht 66000. 69000. 6601 Ol end 68020 li provide* r>« po*r of a full OOS. yei ii 
•impli end eeiv to U*», •nfl will f^n on eyiierm Iron 32K to 16 megabyiet. Bkiuu 
$IC» OOS ■$ willy implemented on a new iy»lem, *e call «l "The Generic 00$" which 
tllawi progr imi written lo» on* «yttem (a be run on many olhm 

SK pDOS comet wHh ovar 40 comma nch end tyvtem program including a 6809 emuii lor 
which ellowi 6BK SK • DOS to run oppiicetloo prog/a<n* and lan^jegn developed for 6609 
SX»OOS and olher mtemi Aumr>bim\ edilori. and higher level language luppori are 
eviiiebl* Irom third party toll were vendor* and throitoh public domain 10 It ware 

SK* DOS ii ew«ilabfa for iioglacopy or deller telea, e» wall etOEM lic*nl>ng Singi* copim 
coil $1?S l<nq g <re a& to available iy»te»ni) Extremely attractive 0€M l«en*ng term* e/e 
alio eveHaOto An optional Configuration Kit content « detailed Configwrerion Manual 
and two dtiki of source coda loi *y»tem adapienon. including hxxt* coda tor etvttam 
monitor /debug ROM and other progremt oteful for edapt<"9 SK » 00$ to n«v» tyttewn* 

SK-DOS 



'i evaWabJ* Item 



Star-K 



^ SOFTWARE SYSTEMS CORPORATION 

• «OX 209 MT K>5CO, NV 10549 814/741 0297 

TCtf x ftiqgg:6>7« 



INDUSTRIAL PASCAL FOR 68000 ANO 6809 
PCSK is a package lhal generales code lor a 68000 series processor 
running on a 66000 development system n includes the compiler, 
assembler, linker, host debugger, largel debugger and screen editor 
all integrated together and conirolled by a menu driven sheil program 
Source code is included for the runtime library and many ol ihe 
utilities Hosi operaling syslems supported are 0S9/68000 
{Mrcroware) POOS lEynng Research), and VERSAdos (Motorola) 
PXK9 is a package that generales code lor a 6809 processor running 
on a 68000 development system includes all of the features of ihe 
PCSK package above, excepl for the hosi debugger Host operalmg 
system * 0S-9/66000 

I WANT IT, WHERE DO I GET IT? 
For more mlormalion on eilher ol these two producls please coniacl 
Cerlilied Software Soulh East Med a or one ol our European 
Licensees 



OEM LICENSEES 

Gespac sa. 3, chemin des 
Aulx. CH* 1228 Geneva /Plan- 
lesOuales. Swiiz TE4. (022) 
713400 TLX 429989 



PEP Elexlronik Sysleme 
GmbH. Am KlosterwakJ 4 
0-8950 Kaulbejren. Wesl 
Germany TEL (08341)8974, 
TLX 541233 

Eltec Eleklronik GmbH 
Galileo Gaitlei Slrasse, 6500 
Mainz 42. Postlach 65. West 
Germany TEL (06131) 
50031. TLX 4187273 



DISTRIBUTORS 
nCS Mic rosy slews Ltd 
141 Oxbridge Road. Hampton 
Hill, Middlesex. England TEL 
01-9792204, TLX 8951470 
Or Rudoll Kell GmbH. Por- 
physlrasse 15, 0-6905 
Schiiesheirn. West Germany 
TEL 062 03/6741, TLX 
465025 

Elsoft AG. Zelgweg 12. 
CH-5405 BadetvOaeltwii 
Switzerland TEL 
056-833377, TLX 828275 
Byte Studio Borken Bulen- 
walt 14. 0-4280 Borken. 
West Germanv TEL 
02861-2147, TLX 813343 



CERTIFIED 616 CAMIN0 CABALL0. NIP0M0. CA 93444 

SOFTWARE TEL (805) 929-1395 TELEX 467013 

CORPORATION FAX (805) 929 1395 (MID-8AM) 



SOFTWARE FOR 680x AND MSDOS 



SUPER SLEUTH DISASSEMBLERS 

EACH 999-FLEX |101*OS9 IIQXMJNIFLEX 

OiJfCT.OMLY wiiom EAC* MO-FLEX. O99X0C0 

e xawa »var> oenerete eowroa on drak «a laoato. (ncfcoa *e4. binary editing 

•pacify 1.969, 1.M.I<6.a/6692 voreton or 260/6060 5 eartton 

OS* ««»«i ■*» pmca*Mt FLEX brnw ob^r ra« u no»r OSfl 

COCO OOS avtMabta in MOQ.I 2.J.SJ.8/6502 variiofi {<** 290/6090.$) or>*f 

M0I0 dlMi»amblei HOO.FLEX.OSff.UNIFLEX.MSDOS.UNIX.SKOOS 

Cross-assemblers with macro capabilities 

EACH S5r>FLEX,OSB t UNIFLEX,MSDOStUNlX,SKDOS 3/SlOO ALLS200 
ipacllV 190*.«*0?.690l/H,e904.9805,e90».Z9.Z90.904B.905l 9005.69010.32000 
module/ croaa eaaambWre 10 C. wHr»» toed/tiAtoed %**\it 
lot aOMtortti $50 s ecA, fiOo tor X S3O0 tor a» 



DEBUQQINQ SIMULATORS FOR POPULAR B-BIT MICROPROCESSORS 
EACH S7S-FLCX H00-OS9 S90-UNIFLEX 
09JECT-OMLY varalona: EACH toOCOCO FLEX.COCO OS» 
*%€•**.+{ aimwUia poaraaoa. +<M* (astauamoty lormanino btrury ed**g 
•pOGrry l»r 990071. tUftOOft. 860], 6809 OS9. Z60 FLEX 

ASSEMBLER CODE TRANSLATORS FOR 6502, 6800*1. 6809 

•802 to 6909 tT^FLEX MS-OS9 S90.U44IFLEX 

4600/1 10 6909 9 9609 to ox*** Ind- IM-FLEX S79-OS9 SCO-UNIFtEX 

FULL-SCREEN XBASIC PROGRAMS «Hh c«rao* coMroi 
AVAILABLE FOR FLEX, UNIFLEX. ANO MSOOS 
OlSPUtY OCNEflATOft/DOCUMEMTOfl 990 ■^W«*. f» ««»OgC 

UAa>*3 U9T SV9TIU | t0 wtw^mnm, HO wlffNwl 

IfWtWTOflY WITH UM* 9109 m tourca, tiO wllhavl 

TA6LLA RASA S«£Aftf*€£T tl 00 -^Ov»Ca. 190 vl|rVO«t1 

DISK AND XBASIC UTILITY PROGRAM LIBRARY 
ISO-FLEX 110-UNIFLEX/MSDOS 

ad* drak aactora« ion OVodtorf. maattott r<oM otak^. do drah *om. 
t9***mw ton* or an of 9ASC CFOoram. > rt r BASIC P^Tva, ac 
r*o«-FL£X «#retorai *t%gat eon and raaaqiaw oray 

CMODEM TELECOMMUNICATIONS PROGRAM 

$100-FIEX,089,UNIFLEX,MS-DOS.UNIX.SKDOS 
09JECT-OMLY vara tone EACH »U 

marto<^ayt *»•> torronai made, lie (raptor. MOOEJUr. xON-XOMP. «tt 
tor COCO and nonCOCO oTvaa toiemal COCO rnt^am port up b 2a00 B*)0 



DISKETTES & SERVICES 

5.25" DISKETTES 

EACH 10-PACK S7S0 SSSDSSDDOSDD 

American made, ouu inlaad T00% qoenry, wttf» TyvaX ladtalt. nub "ig*, and i 



ADDITIONAL SERVICES FOR THE COMPUTING COMMUNTTY 
CUSTOMIZED PROGRAMMING 

*e wm QMitomixa 9^ ot tha P<oorama da*crt>ad m rM<s adyanaameni or in out 
brocftura tor toaciaaiad eueiomar use or to oover nwt pnzwiaor*. tne charOa 
to» iucfi ouatomkiaUon oapardi upon <ne man\elaodity ol (ha rrtodrtc^Nons 

CONTRACT PROGRAMMING 

me tttf craata new program! or moo** aciatinp oroo/ime on a oonoacl Oaars. 
4 tarVtoJ w« ha«a »D«rktod tor over manty yasre. 9w esmaear* on wtiK^ <«a 
fta^O parlor mad oontracl prop/amming tfictude moal p fj pjJa f modah of 
mamrramai. t«9a9no iBm. Ourrowona, UnMac l to na i »al. aio«i pnputai 
mooaia of raaaar^paj*. avbamg rjEC, IBM. OG. HP. ATAT. and mot! 
&mukm brand* ol >w kw«jmfa /wa. tntfuttno 990Qrl. 6409. 260. 6502. 




Computar Sy»ia*ni Co^iut(9n(i. Inc. 

1454 Lotto L4o«. Conyvrsv GA 3020T 

Toloptiono 404-4B3-4570 or 1717 

Wo toko ordo/9 ol ony ibno. bci plan 
long dlacu99lona attar 6. II pomb!* 

Contact ua about catalog, doalar, diacounti. and aarvleoa. 
Moal programa In aource; glvo computar, OS, diak alaa. 
25% oft mulllpla purehaaoa ot samo program on one ordar. 
VISA and MASTER CARD eccapled; US tunda only, plaaao. 
Add GA 99199 I9i (ll In GA) and 5% ahlpplng. 

rUNIJftfN I* taenmMi IrUm Conueanh 099 todo-are. 
COCO 1anO)MU>09 laDmofj^OXHM sum Sor^w. 
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The Only 6809 BASIC to Binary Compiler for OS-9 

FLEX or SK*DOS 

Even runs on the 68XXX SK*DOS Systems* 



...... ........ % 

Hundreds Sold at 
Suggested Retail: 

$100.00 



• 6809 - OS-9™ users can now transfer their FLEX™ 
Extended BASIC (XBASIC) source files to OS-9. com- 
pile with the OS-9 version and run them as any other 
OS-9 binary M CMD* program. Much faster than BASIC 
programs. 

• 6809 - FLEX users can compiler their BASIC source 
files to a regular FLEX \CMD* file. Much faster execu- 
tion. 

• 68XXX - SK'DOS™ users running on 68XXX systems 
(such as the Mustang-08/A) can continue to execute 
their 6809 FLEX BASIC and compiled programs while 
getting things ported over to the 68XXX. SK'DOS 
allows 6809 programs to run in emulation mode. This is 
the only system we know of that will run both 6809 & 
68XXX binary files. 

K-BASIC is a true compiler. Compiling BASIC 6809 pro- 
grams to binary command type programs. The savings 
in RAM needed and the increased speed of binary 
execution makes this a must for the serious user. And 
the price is now RIGHT! 

Don't get caught up In the 'learn a New Lan- 
guage" syndrome - Write Your Program In 
BASIC, Debug It In BASIC and Then Compile 
it to a .CMD Binary File. 



. ■ 



For a LIMITED time 
save over 65%... 
This sale will not be 
repeated after it's 
over! * 



,. ............ 

I SALE SPECIAL: 

j $69.95 

V............. 



SPECIAL 

Thank-You-Sale 



Only from: 



c 



S.E. Media 



p 



i 



9900 Cassandra Smith RdL 

Hixson, Tn 37343 

Teleptone 615 842-6809 

Telex 510 6006630 



A Division of Computer Publishing Inc. 
Over 1,200 Titles - 6sa>680^6floaD 



* K.BASIC will nm i#*kr 6KXXX SK # !X3S ri anulMi* male for the 6809. 

Price subjoa u> dwnge without nrikz. 
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M108 Dual Async Serial Card 



umj? 


■ 


j^^^^l^J 




> 8CM 2BB1A DkM Po»1 UAflT. AA> I 
m» tot tacfl f»o*« and twvnUw •****• »Tarn tt «o » ** bau* 4 by» ncato <Ma HfO. 
>Mgg ( 9 m p v pv m *** qyO/»nir, mdttfr op owfc»Mp mod* WT8/CT8 1*ow urtM 

i kidutei Uoim Sc*c«fc >hWi M 09a lmi » m n. Zmad* unty. Onfu daKftptan and 
DAflt. tn^l*ncHHfl»**«w»lqrbt*L«^l*rtlli Sawdm coda nliUi « nTr. c «t 

• OwDo»»Ocrvitiio»^^»^ u<fc Biiiii l <Df« n^ w U»O o«uddbcfc» 
. Oott<**»d>S»cb^iiMwan 



v» * Lit dbtam «* POfl 



To QflMr Alp 

vv**%**m. SC 



d«H *M $A 00 fwvS** tfurpt l» rf ortvi 



MA E*« \* Av* 
Vinavw, VC 

VST I A J 

T»l |«04| ■7H*»1 

T»k«i 04-»AS*4f VCR 



INDUSTRIAL COMPUTER SYSTEMS 

6800ft - 68020 VME STD SBC 

STD BUS I/O OS9 

BILL WEST INCORPORATED products and services ire intended for 
induct/ill users of microcomputers who ire looking for a supplier prpaied 
u> provide compleie engineering and technical turgor!. We configure 
systems with components and software selected or designed lo meet specific 
customer icqujieroenis, We specialize in solving industrial I/O problems. A 
full range of services ti available including system specification, inttgni- 
lion, and installation, hardware design and production, and system and 
Application programming. 

SYSTEMS 
IHLL WEST INCORPORATED provides microcomputer systems con* 
figured to meet the needs of particular customer Applications, These systems 
use 68000 faintly processors and the OS9(tm) ope/aiing system We design 
and configure systems based on VME bus. STD bus, and single board 
computet!, with processors iingcng from the 6809 lo the 68020. Disk based 
And ROM based systems are supported Systems for developnent and target 
applications can be supplied. 

170 EXPANSION 
The SID bus is an e ice Mem I/O expansion bus. Many off-the-shelf 
interfaces Are available, from simple parallel inteifaces and intelligent 
comrnunicaikn cont/oUen to pneumatic valves and ladio receiven on card, 
WT interfaces the STD bus lo systems via the Motorola I/O channel, ihc 
SCSI imafacc. and ARGNET. The STD bus may be configured as a simple 
expansion bus, an intelligent subsystem, or a remote I/O system. 
MACINTOSH AND ATARI ST EXPANSION 
Expansion slots may be *6dtd to M*ct/*r*Mtm) or Atari ST(im) systems 
using ihc STD but. Canned an STD expansion bus via the SCSI port, and 
uie any of the wide vanety of STD bus interface cards. 

BILL WEST INCORPORATED 

174 Robert Treat Dr., Milford Connecticut 06460 
203 878-9376 




DATA-COMP 



SPECIAL 



Heavy Duty Power Supplies 



For A Orated trns our HEAVY DUTY SWTT04NG POWER SUPR.Y. TrmuM art BRAND NEW units. Not* that 1 
prices art lass than 1/4 tha normal pries lor thssa high qualty units. 



Mate eastern 

Size 105 x 5 x 25 mete 

bxJudmg heavy mcurthfc track* anl raaismk 

fL^& z* \ KV22D volts ec (strap change) Out 130 walk 

Output +5v - 10 anjK 
+I2v.4.0 amp 
+I2v - 2.0 amps 

-12v-05i 



Mating Connecter: Terminal strip 

Load Reanm Aauxnaoc shat circuit recovery 

SPECIAL: $59,95 each 

2 or more $4955 each 

Ml: J75D each Srft 



r 



Make: fecrhen 
S12* 10.75 x 6.2 x 225 inches 

Rating 110/220 ac (sfrap change) Out: 81 watts 



Outpuft: 



+5v- 
+12v 
+12v 
+12v, 

12v- 



8.0 amps 
Z4 amrs 
2.4 amps 

2.1 amps 
04 amps 



Mating Concurs: Mole* 

Load Reaction: AiAtvnafic short circini rasvciy 

SPECIAL: $49.95 each 

2 or more $39.95 each 

Add: S7.S0 *H each 



J V 



9900 



Srnth Rd, Hbcm\ Th. 37343 Telephone 615 842-4600 



Telex 610 6006630 
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68 Micro Journal 



THE 6800-6809 BOOKS 

..HEAR YE. HCAR 



OS-9" 
User Notes 



By: Peter Dibble 



The publishers of 68' Micro Journal are proud to mnke 
available the publication of Peter Dibbles 

0S9 psei teres 

Informatloo for the BECUTOER to the PRO, 
Regular or CoCo 0S9 

Uming 0S9 

HELP, HINTS, PROBLEMS, REVIEWS, SUGGESTIONS, COMPLAINTS, 

0S9 STANDARDS, Generating a New Bootstrap, Building a 

new System Disk, 0S9 Users Group, etc. 

Program Interfacing to OS9 

DEVICE DESCRIPTORS, DIRECTORIES, "FORKS'-, PROTECTION, 
"SUSPEND STATE - , "MPES", "INPUT/OUTPIT SYSTEM", etc. 

Progressing Languages 

Assembly language Programs and Interfacing; Basic09, C, 
Pascal, and Coboj reviews, programs, and uses; etc. 

Disks Include 
■o typing all Che Source Listings In. Source Code and, 
where applicable, assembled or compiled Operating 
Programs. The Source and the Discussions In the 
Columns can be used "as is", or as a "Starting Point** 
for developing your OWK more powerful Programs. 
Programs sometimes use multiple Lsngusges such as a 
short Assembly Lsngusge Routine for reading a 
Directory, which is then "piped" to a Baslc09 Routine 
for output formatting, etc. 



BOOK $9.95 

Typeset — w/ Source listings 

(3-Hole Punched; 8xM) 

Deluxe Binder $5-50 




FLEX™ 
USER NOTES 

By: Ronald Anderson 

The publishers of 68 MICRO JOURNAL sre proud to 
make available the publication of Ron Anderson's PLC! 
OSER MOTES, in book form. This popular monthly column 
as teen s regulsr festure In 68' MICRO JOURNAL SINCE 
1979. It has esrned the respect of thousands of 
68 MICRO JOURNAL readers over the years. In fsct, 
s column has been described as the 'Bible 1 for 68XX 
users, by some of the world's lesding microprocessor 
professionals. The most needed and popular 68XX book 
available. Over the years Ron's column hss been one of 
the most populsr In 68 MICRO JOURNAL. And of course 
68 MICRO JOURNAL Is the most populsr 68XX magazine 
published. 



Listed below sre s few of the 
book snd on diskette. 



files included in the 



Alt TEXT files in ihe book are on the d>$ks 



LOGO CI File load program to offsei memory — ASM PIC 

MEMOVE C1 Memory move program — ASM PlC 

DUMP CI Prinler dump program — uses LOGO — ASM PlC 

SUBTEST CI Simulation ol 6800 code to 6809. show differences — ASM 

TERMEM C? Mooem tnpjl lo disk (or olher port input to disk) — ASM 

M C2 Output s file lo modem lor another port) — ASM 

PRINT C3 Parallel (enhanced) pnnier driver — ASM 

MODEM C2 TTl output to CRT and modem (or other port) — ASM 

SOPKG C1 Sc*entiiic math routines — PASCAL 

U C4 Mini. monitor, disk resident many useful functions — ASM 

PRINT C4 Parallel printer driver, without PFLAG — ASM 

SET C5 Set printer modes — ASM 

S67BAS1 C5 Set printer modes — A-SASlC 

NOTE: .CI, -C2, etc. -Chapter I, Chapter 2, etc. 

**0ver 30 TEXT files included Is ASM (assembler )-PASCAL- 
PIC (position independent code) TSC CASIC-C, etc. 



All Source Listings on Disk 

1-8" SS, SD Disk S14.9* 

2-b" SS, DO Disks $2*. 9b 



Book only: $7.95 + $2.50 S/H 

With disk: 5" $20.90 + $2.50 S/H 

With disk: 8" $22.90 + $2.50 S/H 

Shipping & Hmdllngto 30 per Book. $2 30 per Dtsfc set 

Foreign Orders Add $4.50 Surface Mail 

or $7.00 Air Mail 

If paying by check - Please allow 4-6 weeks delivery 

* All Currency in U.S. Dollars 

Continually Updated In 68 Micro Journal Monthly 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hixson, TN 37343 



"FL£X Is a trade ©ark of Technical Systems Consultants 

*"0S9 is a trademark of Mlcroware and Motorola 

"68' Micro Journal Is a trademark of Computer Publishing Inc. 



(615) 842-4601 

Telex 5106006630 
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!!! Subscribe Now !!! 
68 MICRO JOURNAL 

OK, PLEASE ENTER MY SUBSCRIPTION 

Bill My: Mastercard [~) VISAf! 
Exp, Date 



Card* 



For 1 Year 



2 Years 



3 Years 



Enclosed: $_ 



Name_ 

Street 

City 



State 



Z'P, 



Count ry_ 



My Computer Is: 



Subscription Rates 



U.S.A.: 1 Year $24.50, 2 Years $42.50, 3 Years $64.50 
♦Foreign Surface: Add $12.00 per Year to USA Price. 
♦Foreign Airmail: Add $48.00 per Year to USA Price. 
♦Canada & Mexico: Add $9.50 per Year to USA Price. 
♦U.S. Currency Cash or Check Drawn on a USA Bank ! 

V J 

68 Micro Journal 

5900 Cassandra Smith Rd 

POB 849 

Hixson,TN 37343 
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Telephone 615 842-4600 
Telex 510 600-6630 






Reader Service Disks 

Disk* 1 Fdcsoit. Miniat. Minicopy>linifmi. ** Lifetime, ••Poeiiy, 

••Fcodlijt, ••Did. 
Disk- 2 Dislccdi t w/ in ft A fU es. Prime . •Pnnod. • •Snoopy . 

••Football, ••Hexpawn .••Lifetime. 
Disk* 3 Cbog09, Sact , Sec2. Find. Table2, Intcxl. Disk exp, 

•Disksave. 
Disk- 4 Mailing Program , •Rnddal, •Change. •Tesldisk. 

Disk- 5 •DISKFDC 1, •DISKFDC 2, ••LETTER. ••LOVESIGN. 

••BLACKJAK. ••BOWUNG. 
Disk- 6 ••Purchase Order. Index (Disk file indx). 

Disk* 7 Linking Loader. Rload, Harkrvefli. 

Disk* 8 Crteat, Lanpher (May 82> 

Disk- 9 Datccopy. Diskfa9 (Aug 62). 

Disk* 10 Home Accounting (July 82). 

Dlsk-11 Dissembler (June 84). 

Disk- 12 Modem68 (May 84), 

Disk- 13 •Initmi68. Tcsirof68/ Clean up, # Djkalign.Help.Datc.Txt. 

DIsk*l4 •Init. •Tesl, •Tenninal, •rind. •Diskcdit. InitXib. 

Dlsk*15 Modem9 + Updaies (Dec. 84 Gi]chnst) to Modem9 

(Apiil 84 Commo). 
Disk- 16 Copy.Txt, Copy.Doc. Cai.Tjit, Cai.Doc. 

Dlsk-17 Match Utility. RATBAS. A Basic Preprocessor. 

Dlsk»18 Ptrsc.Mod. Sizc.Cmd (Sep*. 85 Armsirong).CMDCODE. 

CMDTxl (Sept. 85 Spray). 
Disk- 19 Clock, Date, Copy. Cai. PDELAsm A Doc., ErrorvSys. 

Do, Log. Asm A Doc. 
Dlsk*20 UNTX Like Tools (July A Sepi. 85 Taylor A Gilchrist). 

Diagon.C. Giep.C. LS.C, FDUMP.C. 
Disk -21 Utilities A Games - Date. Life. Madness. Touch, Goblin, 

SunhoL, A 15 more. 
Disk 22 Read CPM A Non-FLHX Disks. Fraser May 1984, 

Dlsfc-23 ISAM. Indexed Sequential file Acceding Methods, 

Condon Nov. 1985. Extensible Table Driven. Language 

Recognition Utility, Anderson March 1986. 
Dlsk-24 68' Micro Journal Index of Articles A Bit Bucket Items 

from 1979 - 1985. John CurrenL 
Dlsk-25 KERMTT for FLHX derived from the UNIX vcr. Burg 

Feb. 1986. (2)-5" Disks or (l)-8" Disk. 

Disk 26 Compacta UntBoaid review. code A diagram. Burlison 

March *86. 
DIsk-27 ROTABIT.TXT. SUMSTEST.TXT. CONDATA.TXT. 

BADMEN.TXT. 
Dlsk-28 CT-82 Emulator, bit mapped. 

DIsk.29 ••StarTiek 

Disk 30 Simple Winchester, Dec/86 Green. 

Disk-31 ••• Read(Writc MS/PC-DOS (SK'DOS) 

Dlsk-32 Heir-UNDC Type upgrade - 68MJ 2/87 

Dlsk-33 Build ihe GT-4 Terminal . 68MJ 1 1/87 Condon. 

NOTE: 
Tins is a reader set vice ONLYI No Wimnty is offered or implied, they am 
as received by 68' Micro Journal, and are for leader convenience ONLY 
(some MAY include fixes or patches). Also 6800 and 6809 programs are 
mixed, as each is fairly simple (mostly) to convert to the other. Software is 
available to cross -assemble aJL 

♦ Denoies 6800 - ♦♦ Denotes BASIC 
♦♦♦ Denotes 68000 - 6809 no indicator. 




8" disk $19.50 
S» disk $16.95 




Shipping Sl Handling -U.S.A. Add: - $3.50 
Overseas add: $4.50 Surface - $7.00 Airmail 

68 MICRO JOURNAL 

5900 Cassandra Smilh Rd 

Hixson,™ 37343 

(615)842-4600 - Telex 510 600-6630 
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PT-68000 SINGLE BOARD COMPUTER 

The PT68K2 is Available in a Variety of Formats 
From Basic Kits to Completely Assembled Systems 



"A 



BASIC KIT (8 MHZ) - Board. 68000. 
HUMBUG MONITOR ♦ BASIC in ROM, 
4K STATIC RAM, 2 SERIAL PORTS, all 
Components $200 

PACKAGE DEAL- Complete Kit with 
Board 68000 10 MHZ, SK'DOS, 512K 
RAM, and ail Necessary Parts $480 

ASSEMBLED BOARD (12 MHZ) 
Completely Tested, 1024K RAM, 
FLOPPY CONTROLLER, PIA. SK"0OS 
$675 

ASSEMBLED SYSTEM * 10 MHZ 
BOARD, CABINET POWER SUPPLY, 
MONITOR ♦ KEYBOARD, 80 TRACK 
FLOPPY DRIVE, CABLES $1 1 25 
For A 20 MEG DRIVE, CONTROLLER 
and CABLES Add $345 



PROFESSIONAL OS9 



"W0OS It a Tf adamark oi 

STArVK SOFTWARE SYSTEM* CORP. 

XXSQ a a Trademe/k of Miaow* 



$500 




FEATURES 

MC68000 Processor, 8 MHZ Clock (optional 

10,12 5 MHZ) 

51 2K or 1024K of DRAM (no wait states) 

4K of SPAM (61 16) 

32K64K or 128K of EPROM 

Four RS-232 Serial Ports 

Floppy disk conn oiler will cooOol up to four 

5 1/4 a . 40 or 80 track. 

Clock with onboard battery. 

2 - 8 bit Parallel Ports 

Board can be mounted in an IBM type PC/ 

XT cabinet and has a power connector to 

malch the IBM type power supply. 

Expansion ports - 6 IBM PC/XT compatible 

I/O pons. The HUMBUG 1 - monitor supports 

monochrome ancVor color adaptor cards 

and Western Digital Winchester interface 

cards. 



PERIPHERAL TECHNOLOGY 



1480 Terrell Mill Rd., Suite 870 

Marietta, Georgia 30067 

4047984*0742 

VISA/MASTERCARD/CHECK/CO.D, 



Send For Catalogue 
For Complete Information On All Products 



XDMS-IV 

Data Management System 
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Save $ 1 00.00 - Unfitted Time 
Regular $3SO.OOjJi0«rOfi% 

$249.95 



Technical telephone artfeUnce Tei 914*941^552 (Evening!) 
~ EX 7 * Tecnlcal Systems Consultants, SK-DOSn- STAR^KTTS Cmp. 



FOR 6809 FLEX-SK-DOS(S/8") 

Up id 32 amnfWfkdd* per record! Up to 12 character filed name! Up to 1034 byte records! U«er 
defined tcnni and print contrail IWna Oral Fans files! Conditional eeouuonl Pruusj 
chaining) Upward/Down ward filo linking Rlc joining) Random file virtual paging! Buik in 
ifliiiOAl Bulk in text line edited FuJly acseion ariereedl Enhanced formal Boldface, Double 
width. Italics and Underline supported! Wiiuen in compact structured sstemblert Integrated for 
FAST esecutioni 

XDMS-IV Data Managetnenl System 

XDMS-IV at a brand new approach to data nuiugnrxui It doc only peoruis user* to 
describe, eater and recdeve data, bi* also u> proc c aa entire files producing aistomuz** reports, 
atmer* displaya and file output, rYoc«sing can consisl of any at a act of standard high level 
functions including record end field selection, lotting and agjpcgaunn. lookups in other files, 
special processing of record subsets, wut/«n repon formatting, totaling and sobtctaling, and 
nressrlsaion of up to three (dated Hal as a 'database* vn user defined ootpui reporta, 
POWERFUL COMMANDS! 

XDMS I V combines the functionality of many popular DBMS software systona with a new easy 
io use command set into a single integrated package. WeVe included many new features and 
commands including a set of general file mililfca Ihe processing aranioda are Input-Process* 
Output (IPO) oriented attach allows almost insunt ■nplanemaulon oi t process dorign- 
SESSION OMENTUM 
XDMS IV is aeszion oriented. Emer "XDMS* and you u^ in instant command of all the 
features. No more waking far a command io load in from disk! Many commands are unmediste, 
such as CRfiATE (file definition), UPDATE (file editor), PURGE and DELETE (utilities). 
Other* ere pronme commands which are used to create a cater process which w escorted with a 
RUN commend. Either may be entered into a "process* filo which » execuied by an EXECUTE 
statement. Proxassa may execute other prooaao), or theraaelvea. either oondilionally or 
qncend itireaally. Menua tnd »a^j> prompts are easily ended* and ertbu user appHeaiiatv can be 
run widyxa ever leaving XDMS1 VI 
ITS EASY TO USE! 

XDMS IV keeps data manageovon tixnP^I Ratlter than denari a oornplex DBMS which hides (he 
due nature of the data, we kept XDMS J V file arienttd. Ino user view of data idetionshjp* it 
presented in reports and screen otspo^ white the actual data resides in easy to maintain files. ThU 
espo* pczmils cusiznizBd presentation and reports without complex redefinition of (he database 
fika and ftrnciure. XDMS. IV may be used for s wide range of aPPIieations from simpic record 
management systems (addresses, inventory ...) to integrated database sYitans (order entry, 
I...X. The possibainfis are urdumteiL. 



fJLKX 1 



Visa a Master Card Excepted 

Telephone: 615-842-4601 or Tcki: 510 600-66J0 
Or Write: S.E. Media, 5900 Cassandra Smith Ret, 
Hixson, Tenn. 37343 
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GMX MICRO-20 PRICE LIST 



MICRO 20 (12 5 MHz) W/1 SAB «™,™„. $2565,00 

MtCR0 20(16 67MHz)W/1SAB $2895 00 

MICRO 20 (20 MHz) W/ 1 SAB $3295.00 



OPTIONAL PARTS ANO ACCESSORIES 



68881 12 5MHz Floating Point Coprocessor $195.00 

68881 16 67MHz Floating Point Coprocessor $ 295 00 

68881 20MHz Floating Point Coproossor ... $ 495.00 

MOTOROl A 68020 USERS MANUAL $ 18.00 

MOTOROLA 68881 USERS MANUAL $ 18 00 

t^^^WtlJ^^SffSKf $1690.00 

The package includes a PC-style cabinet with a custom backpanel. 
a 25 Megabyte (unformatted) hard disk and controller, a lioppy disk 
drrve. a 150 watt power supply, cooling fan. panel mounted reset and 
abort switches, and all necessary iniernaf cabkng (for use with 
SAB— 90 serial connectors only.) 

2nd 5"80 FLOPPY & CABLES FOR M20-AP. ADD $ 250.00 

SECOND 25MB HARD DISK & CABLES. ADO S 780.00 

TO SUBSTITUTE 50MB HO FOR 25MB HO, ADO $ 290.00 

TO SUBSTITUTE 80MB HO FOR 25MB HO. ADO $1500.00 

TO SUBSTITUTE 155MB FOR 25MB HO. ADO $2100.00 

60MB TEAC STREAMER WITH ONE TAPE ... $ 870.00 

PKG OF 5 TEAC TAPES $ 112.50 

CUSTOM BACK PANEL PLATE (BPP PC) $ 44.00 



I/O EXPANSION BOARDS 



16 PORT SERIAL BOARO ONLY {SBC- 16S) 



$ 335.00 

The SBC*t6S extends the I/O capabilities of the GMX Micro-20 
68020 Single-board Computer by adding sixteen asynchronous 
serial I/O ports By using iwo SBC-16S boards, a total of thiity-six 
serial ports are possible 



RS232 AOAPTER (SAB ZS. SAB-90 or SA8-8M] 



in TTL level and 
standard RS-232 signal levels for up to 4 serial I/O ports. 



60 LINE PARALLEL I/O BOARO I SBC 60P| 



$398 00 

tne umx SBC SOP uses Ihree 68230 Parallel Interface/ Timers 
(Pl/Ts) to provide up 1o tony-eight parallel J/0 lines The I/O lines 
are bulfered in six groups of eight lines each, with separate buffer 
direction control tor each group Buffer direction can be toed by 
hardware lumpers, or can be software programmable lor 
bidirectional applications 

MiliMiU'JdtMililiHJiIMiliKVJIt $75.00 

The SBC WW provides a means of developing and testing 
custom I/O inlerlace designs for the GMX Micro-20 68020 Single- 
board Computer The board provides areas for both DIP (Dual Intine 
Package) and PGA (Pin Grid Array) devices, and a prewired 
memory area for up to 51 2K bytes of dynamic RAM 



BUS ADAPTER | SBC BA> 



$195.00 

The S ;-BA provides an interface between the GMX Micro- 20 
68020 Single-board Compuler and the Motorola Input/Output 
Channel {I/O bus) With the I/O bus, up to sixteen off-the-shelf or 
custom peripheral devices {I/O modules) can be connected to the 
GMX Micro-20 



AflCNET LAN board w/o Software <SBC AN ( 



$475.00 

The SBC AN provides an interlace between the GMX Micro -20 
68020 Single-board Computer and the ARCNET modified token- 
passing Local Area Network (LAN) originally developed by Oatapotnt 
Corp The ARCNET is a baseband network with a data transmission 
rated 2 5 Megabits/ second The standard transmission media is a 
single 93 ohm RG-62/U coaxial cable Fiber optic versions are 
available as an option 



0S9 LAN Software Orivers for S8C-AN 



$120.00 



GMX MICRO-20 SOFTWARE 



020 BUG UPDATE -PROMS A MANUAL $150.00 

THESE 6*020 OPERATING SYSTEMS ARE PRICED 
WHEN PURCHASED WITH THE MICRO-20. PLEASE 
ADD $150.00 IF PURCHASED LATER FOR THE 
UPDATED PROMS AND MANUALS. ALL SHIPPED 
STANDARD ON 5 Vi m DISKS V/t m OPTIONAL IF 
SPECIFIED. 



0S9/6B020 PROFESSIONAL PAK $850.00 

Includes S.. ' C", uMACS EDITOR, ASSEMBLER, DEBUGGER, 
development utilities. 68881 support 

OS9/68020 PERSONAL PAK S 400,00 

Personal OS-9 systems require a GMX Micro-20 development 
system running Professional OS-9/68020 lor initial configuration 



Other Software tor OS 9/68020 



BASIC (included In PERSONAL PAK) $ 200.00 

C COMPILER (included in PROFESSIONAL PAK) $ 750.00 

PASCAL COMPILER $ 500.00 

UnlFLEX ...$ 450 00 

UnlFLEX WITH REAL-TIME ENHANCEMENTS $ 600.00 

UnlFLEX BASIC W/PRECOMPILER .. ...$ 300.00 

UnlFLEX C COMPILER $ 350.00 

UnlFLEX COBOL COMPILER $ 750.00 

UnlFLEX SCREEN EOITOR T* 150.00 

UnlFLEX TEXT PROCESSOR S 200.00 

UnlFLEX SORT/MERGE PACKAGE $ 200 00 

UnlFLEX VSAM MOOULE $ 100.00 

UnlFLEX UTILITIES PACKAGE I $ 200.00 

UnlFLEX PARTIAL SOURCE LICENSE $1000.00 

GMX EXCLUSIVE VERSIONS, CUSTOMIZBD FOR 
THE M9CRO-20, OF THE BELOW LANGUAGES 
AND SOFTWARE ARE ALSO AVAILABLE 
FROM GMX. 

A8S0FT FORTRAN (UnlFLEX) $1500.00 

SCULPrOR (specify UnlFLEX or 0S9) $ 995.00 

FORTH (0S9) S 595.00 

OYNACALC (specify UnlFLEX or 0S9) S 300.00 

GMX OOES NOT GUARANTEE PERFORMANCE OF ANY GMX 
SYSTEMS, BOARDS OR SOFTWARE WHEN USED WITH 
OTHER MANUFACTURERS PRODUCT. 

ALL PRICES ARE FOB. CHICAGO IN U.S. FUNOS 

TO ORDER BY MAIL SEND CHECK OR MONEY ORDER OR USE 
YOUR VISA OR MASTER CHARGE Please allow 3 weeks for 
personal checks to clear U S orders add $5 handling if under 
$200 00 Foreign orders add $10 handling if order is under 
$200 00 Foreign orders over $200 00 will be shipped via Emery Air 
Freight COLLECT, and we will charge no handling All orders must 
be prepaid in U S funds Please note that foreign checks have 
been taking about B weeks lor cotieclion so we would advise wiring 
money, or checks drawn on a bank account in the U S Our bank rs 
the Continental Illinois National Bank of Chicago, 231 S LaSalle 
Street. Chicago, IL 60693, account number 73-32033 

CONTACT GMX FOR MORE INFORMATION ON THE ABOVE 
PROOUCTS 

GMX STILL SELLS GIMIX S50 BUS SYSTEMS. BOARDS & PARTS 
CONTACT GMX FOR COMPLETE PRICE LIST 



CmX- 1337 W. 37th Place, Chicago, IL 60609 (312) 927-5510 — TWX 910-221-4055 — FAX (312) 927-7352 
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Now Offering "FLEX'* (2 Versions) 
AND 'STAR- DOS PLUS + " 




For Ordering C*ll 

(615)842-4600 



FROM - DATA-COMP, C.P.I. 



A Family of 100% 68XX Support Facilities 
The Folks u/ho FIRST Put FLEX* 
The CoCo 



on 




TSC Editor 

RtjtSOOO 
NOW $35.00 



DOS PLUS 4 

• Functions Same as FLEX 

• Reads - writes FLEX Disk* 

• Run FLEX Programs 

• Just type: Run "STAR-DOS'' 

• Over 300 utilities & programs 
to choose from. 



PLUS 
ALL VERSIONS OF FLEX & STAR DOS 




+ Read-Write-Dir RS Disk 
+ Run RS Basic from Both 
+ More Free Utlities 



INCLUDE 

+ External Terminal Program 
+ Test Disk Program 
+ Disk Examine & Repair Program 
+ Memoiy Examine Program 
+ Many Many More!!! 



TSC Assembler 

fUfttOOO 
NOW $3500 



Cora Disk Dnvp Susleuisl 



2 TH1NLINE OOUILB SIDED DOUILE DENSITY DISK DRIVES 
SYSTKH VlTN PDtJEI SWPLV .CAlINfcT, DISl OllVE CARLE. J4M 
NEW DISK CONTROLLER JPO-CP VJTfi J-DOS .US-DOS OPERATING 
SYSTEMS. $4*9.95 

Spidfy What CONTROLLER You W#nt JAM, or tADIO IHACX 



THINLINE DOUIt^ SIDED 
DOUILE DENSITY 40 TRACKS 



1 



Verbatim Diskettes 



Sinftle Sldtd Double Deoilty 
Daubl* Sided Doubl* Deotlty 



Cauli oilers 



J4N JPO-CP WITN J-DOS 
WITH J-OOS, RS-DOS 
RADIO SNACK J, I 

RADIO SHACK Dlik CONTROLLER 1.1 



Disk Dtive Cables 



Cflbl* for One Drive 
Cable for Two Drive* 



$179.9* 



$ 14.00 
* 14.00 



$139.95 
$159.95 
$114.95 

3134.93 



S 19.93 
S 24.93 



MK VPCRADt 

POR C.D.E.P, AMD COCO 11 
RADIO SHACK BASIC 1.2 
RADIO SHACK DISK IAS1C 1.1 

DISK OltVE CAR I NET PCJ1 A 
SINGLE DRIVE 

DISK DRIVE CABINET POR TWO 
TK INLINE DRIVES 



niVTCRJ 

EPSOM U-RO 
EPSON MX-70 
EPSOM KX-lOO 

acojmmue* not ipso* 

6 J 46 2K SEllAL BOARD 
6 J 49 32K EXPAND TO J 26K 
EPSON MX -AX- HO KI150NS 
EPSON LX-80 Rl IRONS 
TEACrOR UNITS POR LX-80 
CARLES 4 •THEN INTERSACKS 
CALL POR PRICING 



$ 29.95 

$ 24.93 
I 24.93 



I 49.93 
$ 49.95 



4219.95 
IU3.95 
$495.95 



$ R9.95 
$149.95 
$ 7.95 
I 5.93 
I 39.95 



DATA-COMP 

5900 Cassandra Smith Rd 
HiKson. TN 37343 


|e» 




SHIPPIN6 

USA ADD 211 

FOREIGN ADD 5» 

MIH. %2$Q 


(615)842-4600 

f Of Ofdvftng 

Telex 5106006630 
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An Ace of a System in Spades! The New 

MUSTANG-08/A 

Now with 4 •erlal port* gtandanl ft speed Incxease to 12 Mhz CPU + on board battexy 
backup and include* the PROFESSIONAL OS-9 package - Including the $500.00 OS-9 

C compilerl Thla offer wont last forever! 



NOT 128K, NOT 512K 
FULL 768K No Walt RAM 

The MUSTANG-OB™ eyiefcm took every hand from al 
other 68006 synefne we tested, ruining OS-9 68KJ 

The MU5TANO08 Modes OSWSK^ andfar Peter 
Starke SKDOS™ SCDOS is a single user, single tasking 
ey9*m that takes up where *Fl£X™ toft off. SKDQS is 
actual? a 68XXX FLEX type system (Nbf a 75C product) 



Now even faster! 
with 12 Mhz CPU 



C Camplk tbnc O&d 68K. Hmd Disk "^\ 
IU5TAN&Q8 SltatCPU 0mto-32ssc 

(Xha? popUaf S008 sysem irti 05tec 

MUSTANM20 Omin-rtstc 



r^ 




v Now more serial ports - faster CPU 1 

Battery B/U - and $650.00 OS^9 Profes- 1 

slonal with C compiler Included! % 



System tidurio OS-9 68K or SKTOS 
Specifications 



Your Ctoct 



RAM 
PORTS 

aocK 

EPROM 
ROPPY 
HARD DOC 



MCS8D0B 

768X 

NoWatS*« 

4-RSZ2 

i ebiPwy 

MK46TC2 

16K33(arB4K 

WD1772 

R»t 



12 Mhz 

2SX Chf 

MCBW1 QUART 
MCS1 PIA 

Reel Tine Oak B* BU 
Sekdabfc 

SIMOmw 

woioae B«d 



*$400.00 



See Mustangs Ad - page 5 
for trade-in detals 




MUSTANG-08 



LOOK 



Saxmds 32 fan Router 
[me^TT Lcm^g 

oe-9 em... 16-0... 9.0 



10 afec 08-9 S8K 9.8. ..6,3 

MaftnO 
I 

/* kltl; V 
ijoop register long lj 

far (U>; I < 090099; ++Q; 
) 



^ 25 Megabyte 
4^ Hard Disk System 

$2,398.90 

Complete with PROFESSIONAL OS9 

Includes the $500.00 C compiler PC 

style cabinet* heavy duty power supply, 

5" DDDS 60 track floppy, 25 McgByte 

^ Hard Disk - Ready to Run J 

UhfcXa other 68006 systems there are several signflcart 
eSKarercBB. The MUSTANG-08 is a full 12 Kfagaherlz system. The 
RAM uses NO wal stales, the means ful bore MUSTANG type 
performance. 

Abo, albwing for addressable HDMPROM the RAM b the 
maximum allowed for a 68006. The 66008 can only address a 
total of 1 Megabytes of RAM. The design atows al the RAM 
spaas (tor al predial purpme) to be utilized What fe not 
avalabie to the user is required and rsarved for the system 

A RAM disk of 480K can be aasjy conjured, leaving 288K 
free for awarrv****™ RAM space. The RAM OISK can be 
configured to any sbe your apjat^bn requres (system must 
have 128K ki addition to Is other requirements). Leavwig the 
remaMer of the ongneJ 768K for program use. Sufaan 
source included (oH/era* etc) 

MUSTAH041fca«a*H 



Data-Comp Division 

A Decade of Quality Service" 




7 "s^T ~^r Systms WorM Wkle 

Computer Publishing, Inc. 5900 Cassandm Smith Road 
Tetephooe615842-4601 -Telex 510 60OS630 Hbtsor\ Tn 37343 

# Thcae vtfh SvWC rtctenrty FLEX 5' - Col for apedc* hfb. 



